module Database.PostgreSQL.PQTypes.FromRow
  ( FromRow (..)
  , fromRow'
  ) where

import Control.Exception qualified as E
import Data.ByteString.Unsafe qualified as BS
import Data.Functor.Identity
import Foreign.C
import Foreign.Marshal.Alloc
import Foreign.Ptr
import Foreign.Storable

import Database.PostgreSQL.PQTypes.Format
import Database.PostgreSQL.PQTypes.FromSQL
import Database.PostgreSQL.PQTypes.Internal.C.Get
import Database.PostgreSQL.PQTypes.Internal.C.Interface
import Database.PostgreSQL.PQTypes.Internal.C.Types
import Database.PostgreSQL.PQTypes.Internal.Error
import Database.PostgreSQL.PQTypes.Internal.Utils

-- | Convert base (libpqtypes) type to destination type.
convert :: FromSQL t => Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert :: forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
tuple CInt
column PQBase t
base = do
  CInt
isNull <- Ptr PGresult -> CInt -> CInt -> IO CInt
c_PQgetisnull Ptr PGresult
res CInt
tuple CInt
column
  Maybe (PQBase t) -> IO t
forall t. FromSQL t => Maybe (PQBase t) -> IO t
fromSQL (if CInt
isNull CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
== CInt
1 then Maybe (PQBase t)
forall a. Maybe a
Nothing else PQBase t -> Maybe (PQBase t)
forall a. a -> Maybe a
Just PQBase t
base)
    IO t -> (SomeException -> IO t) -> IO t
forall e a. Exception e => IO a -> (e -> IO a) -> IO a
`E.catch` SomeException -> IO t
forall a. SomeException -> IO a
rethrowWithConvError
  where
    rethrowWithConvError :: E.SomeException -> IO a
    rethrowWithConvError :: forall a. SomeException -> IO a
rethrowWithConvError (E.SomeException e
e) = do
      String
colname <- CString -> IO String
safePeekCString' (CString -> IO String) -> IO CString -> IO String
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult -> CInt -> IO CString
c_PQfname Ptr PGresult
res CInt
column
      ConversionError -> IO a
forall e a. Exception e => e -> IO a
E.throwIO
        ConversionError
          { convColumn :: Int
convColumn = CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
column Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
          , convColumnName :: String
convColumnName = String
colname
          , convRow :: Int
convRow = CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
tuple Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
          , convError :: e
convError = e
e
          }

-- | 'verifyPQTRes' specialized for usage in 'fromRow'.
verify :: Ptr PGerror -> CInt -> IO ()
verify :: Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err = Ptr PGerror -> String -> CInt -> IO ()
verifyPQTRes Ptr PGerror
err String
"fromRow"

withFormat :: forall row. FromRow row => (CString -> IO row) -> IO row
withFormat :: forall row. FromRow row => (CString -> IO row) -> IO row
withFormat = ByteString -> (CString -> IO row) -> IO row
forall a. ByteString -> (CString -> IO a) -> IO a
BS.unsafeUseAsCString (ByteString -> (CString -> IO row) -> IO row)
-> ByteString -> (CString -> IO row) -> IO row
forall a b. (a -> b) -> a -> b
$ forall t. PQFormat t => ByteString
pqFormat0 @row

----------------------------------------

-- | More convenient version of 'fromRow' that allocates 'PGerror' by itself.
fromRow' :: forall row. FromRow row => Ptr PGresult -> CInt -> CInt -> IO row
fromRow' :: forall row. FromRow row => Ptr PGresult -> CInt -> CInt -> IO row
fromRow' Ptr PGresult
res CInt
b CInt
i = (Ptr PGerror -> IO row) -> IO row
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr PGerror -> IO row) -> IO row)
-> (Ptr PGerror -> IO row) -> IO row
forall a b. (a -> b) -> a -> b
$ \Ptr PGerror
err -> Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row
forall row.
FromRow row =>
Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i

-- | Class which represents \"from SQL row to Haskell tuple\" transformation.
class PQFormat row => FromRow row where
  -- | Extract SQL row from 'PGresult' and convert it into a tuple.
  fromRow
    :: Ptr PGresult
    -- ^ Source result.
    -> Ptr PGerror
    -- ^ Local error info.
    -> CInt
    -- ^ Base position for c_PQgetf.
    -> CInt
    -- ^ Index of row to be extracted.
    -> IO row

{- FOURMOLU_DISABLE -}

instance
  ( FromRow row1, FromRow row2
  ) => FromRow (row1 :*: row2) where
    fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO (row1 :*: row2)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = row1 -> row2 -> row1 :*: row2
forall a b. a -> b -> a :*: b
(:*:)
      (row1 -> row2 -> row1 :*: row2)
-> IO row1 -> IO (row2 -> row1 :*: row2)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row1
forall row.
FromRow row =>
Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b  CInt
i
      IO (row2 -> row1 :*: row2) -> IO row2 -> IO (row1 :*: row2)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row2
forall row.
FromRow row =>
Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO row
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b' CInt
i
      where
        b' :: CInt
b' = CInt
b CInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+ Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (forall t. PQFormat t => Int
pqVariables @row1)

instance FromRow () where
  fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO ()
fromRow Ptr PGresult
_ Ptr PGerror
_ CInt
_ CInt
_ = () -> IO ()
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()

instance FromSQL t => FromRow (Identity t) where
  fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO (Identity t)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (Identity t)) -> IO (Identity t)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (Identity t)) -> IO (Identity t))
-> (CString -> IO (Identity t)) -> IO (Identity t)
forall a b. (a -> b) -> a -> b
$ \CString
fmt -> (Ptr (PQBase t) -> IO (Identity t)) -> IO (Identity t)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t) -> IO (Identity t)) -> IO (Identity t))
-> (Ptr (PQBase t) -> IO (Identity t)) -> IO (Identity t)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t)
p1 -> do
    Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t)
-> IO CInt
forall t1.
Ptr PGresult
-> Ptr PGerror -> CInt -> CString -> CInt -> Ptr t1 -> IO CInt
c_PQgetf1 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t)
p1
    t
t <- Ptr (PQBase t) -> IO (PQBase t)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t)
p1 IO (PQBase t) -> (PQBase t -> IO t) -> IO t
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b
    Identity t -> IO (Identity t)
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (t -> Identity t
forall a. a -> Identity a
Identity t
t)

instance
  ( FromSQL t1, FromSQL t2
  ) => FromRow (t1, t2) where
    fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO (t1, t2)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2)) -> IO (t1, t2)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2)) -> IO (t1, t2))
-> (CString -> IO (t1, t2)) -> IO (t1, t2)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2)) -> IO (t1, t2)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2)) -> IO (t1, t2))
-> (Ptr (PQBase t1) -> IO (t1, t2)) -> IO (t1, t2)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2)) -> IO (t1, t2)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2)) -> IO (t1, t2))
-> (Ptr (PQBase t2) -> IO (t1, t2)) -> IO (t1, t2)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> IO CInt
forall t1 t2.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> IO CInt
c_PQgetf2 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1
        (,)
          (t1 -> t2 -> (t1, t2)) -> IO t1 -> IO (t2 -> (t1, t2))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO (t2 -> (t1, t2)) -> IO t2 -> IO (t1, t2)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3
  ) => FromRow (t1, t2, t3) where
    fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO (t1, t2, t3)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3)) -> IO (t1, t2, t3))
-> (CString -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3)) -> IO (t1, t2, t3))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3)) -> IO (t1, t2, t3))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3)) -> IO (t1, t2, t3))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3)) -> IO (t1, t2, t3)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> IO CInt
forall t1 t2 t3.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> IO CInt
c_PQgetf3 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2
        (,,)
          (t1 -> t2 -> t3 -> (t1, t2, t3))
-> IO t1 -> IO (t2 -> t3 -> (t1, t2, t3))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO (t2 -> t3 -> (t1, t2, t3)) -> IO t2 -> IO (t3 -> (t1, t2, t3))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO (t3 -> (t1, t2, t3)) -> IO t3 -> IO (t1, t2, t3)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4
  ) => FromRow (t1, t2, t3, t4) where
    fromRow :: Ptr PGresult -> Ptr PGerror -> CInt -> CInt -> IO (t1, t2, t3, t4)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4))
-> (CString -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4)) -> IO (t1, t2, t3, t4)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> IO CInt
forall t1 t2 t3 t4.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> IO CInt
c_PQgetf4 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3
        (,,,)
          (t1 -> t2 -> t3 -> t4 -> (t1, t2, t3, t4))
-> IO t1 -> IO (t2 -> t3 -> t4 -> (t1, t2, t3, t4))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO (t2 -> t3 -> t4 -> (t1, t2, t3, t4))
-> IO t2 -> IO (t3 -> t4 -> (t1, t2, t3, t4))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO (t3 -> t4 -> (t1, t2, t3, t4))
-> IO t3 -> IO (t4 -> (t1, t2, t3, t4))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO (t4 -> (t1, t2, t3, t4)) -> IO t4 -> IO (t1, t2, t3, t4)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5
  ) => FromRow (t1, t2, t3, t4, t5) where
    fromRow :: Ptr PGresult
-> Ptr PGerror -> CInt -> CInt -> IO (t1, t2, t3, t4, t5)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5)) -> IO (t1, t2, t3, t4, t5)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5)) -> IO (t1, t2, t3, t4, t5))
-> (CString -> IO (t1, t2, t3, t4, t5)) -> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5))
 -> IO (t1, t2, t3, t4, t5))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5))
 -> IO (t1, t2, t3, t4, t5))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5))
 -> IO (t1, t2, t3, t4, t5))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5))
 -> IO (t1, t2, t3, t4, t5))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5))
 -> IO (t1, t2, t3, t4, t5))
-> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5))
-> IO (t1, t2, t3, t4, t5)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> IO CInt
forall t1 t2 t3 t4 t5.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> IO CInt
c_PQgetf5 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4
        (,,,,)
          (t1 -> t2 -> t3 -> t4 -> t5 -> (t1, t2, t3, t4, t5))
-> IO t1 -> IO (t2 -> t3 -> t4 -> t5 -> (t1, t2, t3, t4, t5))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO (t2 -> t3 -> t4 -> t5 -> (t1, t2, t3, t4, t5))
-> IO t2 -> IO (t3 -> t4 -> t5 -> (t1, t2, t3, t4, t5))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO (t3 -> t4 -> t5 -> (t1, t2, t3, t4, t5))
-> IO t3 -> IO (t4 -> t5 -> (t1, t2, t3, t4, t5))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO (t4 -> t5 -> (t1, t2, t3, t4, t5))
-> IO t4 -> IO (t5 -> (t1, t2, t3, t4, t5))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO (t5 -> (t1, t2, t3, t4, t5)) -> IO t5 -> IO (t1, t2, t3, t4, t5)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  ) => FromRow (t1, t2, t3, t4, t5, t6) where
    fromRow :: Ptr PGresult
-> Ptr PGerror -> CInt -> CInt -> IO (t1, t2, t3, t4, t5, t6)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (CString -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6))
 -> IO (t1, t2, t3, t4, t5, t6))
-> (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6))
-> IO (t1, t2, t3, t4, t5, t6)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> IO CInt
forall t1 t2 t3 t4 t5 t6.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> IO CInt
c_PQgetf6 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5
        (,,,,,)
          (t1 -> t2 -> t3 -> t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t1
-> IO (t2 -> t3 -> t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO (t2 -> t3 -> t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t2 -> IO (t3 -> t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO (t3 -> t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t3 -> IO (t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO (t4 -> t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t4 -> IO (t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO (t5 -> t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t5 -> IO (t6 -> (t1, t2, t3, t4, t5, t6))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO (t6 -> (t1, t2, t3, t4, t5, t6))
-> IO t6 -> IO (t1, t2, t3, t4, t5, t6)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7) where
    fromRow :: Ptr PGresult
-> Ptr PGerror -> CInt -> CInt -> IO (t1, t2, t3, t4, t5, t6, t7)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (CString -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7))
 -> IO (t1, t2, t3, t4, t5, t6, t7))
-> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7))
-> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> IO CInt
c_PQgetf7 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6
        (,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t1
-> IO
     (t2 -> t3 -> t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2 -> t3 -> t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t2
-> IO (t3 -> t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO (t3 -> t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t3
-> IO (t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO (t4 -> t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t4 -> IO (t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO (t5 -> t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t5 -> IO (t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO (t6 -> t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t6 -> IO (t7 -> (t1, t2, t3, t4, t5, t6, t7))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO (t7 -> (t1, t2, t3, t4, t5, t6, t7))
-> IO t7 -> IO (t1, t2, t3, t4, t5, t6, t7)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> (Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> IO CInt
c_PQgetf8 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7
        (,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t2
-> IO
     (t3
      -> t4 -> t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4 -> t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t3
-> IO
     (t4 -> t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO (t4 -> t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t4
-> IO (t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO (t5 -> t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t5 -> IO (t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO (t6 -> t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t6 -> IO (t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO (t7 -> t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t7 -> IO (t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO (t8 -> (t1, t2, t3, t4, t5, t6, t7, t8))
-> IO t8 -> IO (t1, t2, t3, t4, t5, t6, t7, t8)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> (Ptr (PQBase t9) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> IO CInt
c_PQgetf9 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8
        (,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t4
-> IO
     (t5
      -> t6 -> t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6 -> t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t5
-> IO
     (t6 -> t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO (t6 -> t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t6
-> IO (t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO (t7 -> t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t7 -> IO (t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO (t8 -> t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t8 -> IO (t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO (t9 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9))
-> IO t9 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t1)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t2)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t3)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t4)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t5)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t6)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t7)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t8)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t9)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10) -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> (Ptr (PQBase t10)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> IO CInt
c_PQgetf10 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9
        (,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t6
-> IO
     (t7
      -> t8 -> t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8 -> t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t7
-> IO
     (t8 -> t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO (t8 -> t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t8
-> IO (t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO (t9 -> t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t9 -> IO (t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO (t10 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10))
-> IO t10 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t1)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t2)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t3)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t4)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t5)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t6)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t7)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t8)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t9)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t10)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> (Ptr (PQBase t11)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> IO CInt
c_PQgetf11 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10
        (,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t8
-> IO
     (t9
      -> t10 -> t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10 -> t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t9
-> IO
     (t10 -> t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO (t10 -> t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t10
-> IO (t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO (t11 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11))
-> IO t11 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (CString
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t1)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t2)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t3)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t4)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t5)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t6)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t7)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t8)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t9)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t10)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t11)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> (Ptr (PQBase t12)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> IO CInt
c_PQgetf12 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11
        (,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t10
-> IO
     (t11 -> t12 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11 -> t12 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t11
-> IO (t12 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO (t12 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12))
-> IO t12 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (CString
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t1)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t2)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t3)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t4)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t5)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t6)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t7)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t8)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t9)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t10)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t11)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t12)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
 -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> (Ptr (PQBase t13)
    -> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> IO CInt
c_PQgetf13 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12
        (,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t11
-> IO
     (t12
      -> t13 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t12
-> IO
     (t13 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13))
-> IO t13
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> IO CInt
c_PQgetf14 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13
        (,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t12
-> IO
     (t13
      -> t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t13
-> IO
     (t14
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14))
-> IO t14
-> IO (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> IO CInt
c_PQgetf15 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14
        (,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t13
-> IO
     (t14
      -> t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t14
-> IO
     (t15
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15))
-> IO t15
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> IO CInt
c_PQgetf16 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15
        (,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t14
-> IO
     (t15
      -> t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t15
-> IO
     (t16
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16))
-> IO t16
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> IO CInt
c_PQgetf17 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16
        (,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t15
-> IO
     (t16
      -> t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t16
-> IO
     (t17
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17))
-> IO t17
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> IO CInt
c_PQgetf18 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17
        (,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t16
-> IO
     (t17
      -> t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t17
-> IO
     (t18
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18))
-> IO t18
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> IO CInt
c_PQgetf19 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18
        (,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t17
-> IO
     (t18
      -> t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t18
-> IO
     (t19
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19))
-> IO t19
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> IO CInt
c_PQgetf20 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19
        (,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t18
-> IO
     (t19
      -> t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t19
-> IO
     (t20
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20))
-> IO t20
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> IO CInt
c_PQgetf21 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20
        (,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t19
-> IO
     (t20
      -> t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t20
-> IO
     (t21
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21))
-> IO t21
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> IO CInt
c_PQgetf22 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21
        (,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t20
-> IO
     (t21
      -> t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t21
-> IO
     (t22
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22))
-> IO t22
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> IO CInt
c_PQgetf23 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22
        (,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t21
-> IO
     (t22
      -> t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t22
-> IO
     (t23
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23))
-> IO t23
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> IO CInt
c_PQgetf24 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23
        (,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t22
-> IO
     (t23
      -> t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t23
-> IO
     (t24
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24))
-> IO t24
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> IO CInt
c_PQgetf25 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24
        (,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t23
-> IO
     (t24
      -> t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t24
-> IO
     (t25
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25))
-> IO t25
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> IO CInt
c_PQgetf26 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25
        (,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t24
-> IO
     (t25
      -> t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t25
-> IO
     (t26
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26))
-> IO t26
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> IO CInt
c_PQgetf27 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26
        (,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t25
-> IO
     (t26
      -> t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t26
-> IO
     (t27
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27))
-> IO t27
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> IO CInt
c_PQgetf28 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t26
-> IO
     (t27
      -> t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t27
-> IO
     (t28
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28))
-> IO t28
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> IO CInt
c_PQgetf29 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t27
-> IO
     (t28
      -> t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t28
-> IO
     (t29
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29))
-> IO t29
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> IO CInt
c_PQgetf30 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t28
-> IO
     (t29
      -> t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t29
-> IO
     (t30
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30))
-> IO t30
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> IO CInt
c_PQgetf31 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t29
-> IO
     (t30
      -> t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t30
-> IO
     (t31
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31))
-> IO t31
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> IO CInt
c_PQgetf32 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t30
-> IO
     (t31
      -> t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t31
-> IO
     (t32
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32))
-> IO t32
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> IO CInt
c_PQgetf33 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t31
-> IO
     (t32
      -> t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t32
-> IO
     (t33
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33))
-> IO t33
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33
       t34.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> IO CInt
c_PQgetf34 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t32
-> IO
     (t33
      -> t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t33
-> IO
     (t34
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34))
-> IO t34
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> IO CInt
c_PQgetf35 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t33
-> IO
     (t34
      -> t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t34
-> IO
     (t35
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35))
-> IO t35
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> IO CInt
c_PQgetf36 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t34
-> IO
     (t35
      -> t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t35
-> IO
     (t36
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36))
-> IO t36
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> IO CInt
c_PQgetf37 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t35
-> IO
     (t36
      -> t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t36
-> IO
     (t37
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37))
-> IO t37
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> IO CInt
c_PQgetf38 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t36
-> IO
     (t37
      -> t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t37
-> IO
     (t38
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38))
-> IO t38
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> IO CInt
c_PQgetf39 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t37
-> IO
     (t38
      -> t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t38
-> IO
     (t39
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39))
-> IO t39
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> IO CInt
c_PQgetf40 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t38
-> IO
     (t39
      -> t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t39
-> IO
     (t40
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40))
-> IO t40
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> IO CInt
c_PQgetf41 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t39
-> IO
     (t40
      -> t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t40
-> IO
     (t41
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41))
-> IO t41
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> IO CInt
c_PQgetf42 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t40
-> IO
     (t41
      -> t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t41
-> IO
     (t42
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42))
-> IO t42
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> IO CInt
c_PQgetf43 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t41
-> IO
     (t42
      -> t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t42
-> IO
     (t43
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43))
-> IO t43
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> IO CInt
c_PQgetf44 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t42
-> IO
     (t43
      -> t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t43
-> IO
     (t44
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44))
-> IO t44
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> IO CInt
c_PQgetf45 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t43
-> IO
     (t44
      -> t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t44
-> IO
     (t45
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45))
-> IO t45
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 ->
      (Ptr (PQBase t46)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t46)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46))
-> (Ptr (PQBase t46)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t46)
p45 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> CInt
-> Ptr (PQBase t46)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> CInt
-> Ptr t46
-> IO CInt
c_PQgetf46 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45) Ptr (PQBase t46)
p45
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> t46
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45, t46))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t43
-> IO
     (t44
      -> t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t44
-> IO
     (t45
      -> t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t45
-> IO
     (t46
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44)) IO
  (t46
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46))
-> IO t46
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t46) -> IO (PQBase t46)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t46)
p45 IO (PQBase t46) -> (PQBase t46 -> IO t46) -> IO t46
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t46 -> IO t46
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 ->
      (Ptr (PQBase t46)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t46)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t46)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t46)
p45 -> (Ptr (PQBase t47)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t47)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47))
-> (Ptr (PQBase t47)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t47)
p46 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> CInt
-> Ptr (PQBase t46)
-> CInt
-> Ptr (PQBase t47)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> CInt
-> Ptr t46
-> CInt
-> Ptr t47
-> IO CInt
c_PQgetf47 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45) Ptr (PQBase t46)
p45 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46) Ptr (PQBase t47)
p46
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> t46
 -> t47
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45, t46, t47))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t43
-> IO
     (t44
      -> t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t44
-> IO
     (t45
      -> t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t45
-> IO
     (t46
      -> t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44)) IO
  (t46
   -> t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t46
-> IO
     (t47
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t46) -> IO (PQBase t46)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t46)
p45 IO (PQBase t46) -> (PQBase t46 -> IO t46) -> IO t46
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t46 -> IO t46
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45))
          IO
  (t47
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47))
-> IO t47
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t47) -> IO (PQBase t47)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t47)
p46 IO (PQBase t47) -> (PQBase t47 -> IO t47) -> IO t47
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t47 -> IO t47
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 ->
      (Ptr (PQBase t46)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t46)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t46)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t46)
p45 -> (Ptr (PQBase t47)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t47)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t47)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t47)
p46 -> (Ptr (PQBase t48)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t48)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48))
-> (Ptr (PQBase t48)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t48)
p47 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> CInt
-> Ptr (PQBase t46)
-> CInt
-> Ptr (PQBase t47)
-> CInt
-> Ptr (PQBase t48)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47 t48.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> CInt
-> Ptr t46
-> CInt
-> Ptr t47
-> CInt
-> Ptr t48
-> IO CInt
c_PQgetf48 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45) Ptr (PQBase t46)
p45 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46) Ptr (PQBase t47)
p46 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47) Ptr (PQBase t48)
p47
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> t46
 -> t47
 -> t48
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t43
-> IO
     (t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t44
-> IO
     (t45
      -> t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t45
-> IO
     (t46
      -> t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44)) IO
  (t46
   -> t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t46
-> IO
     (t47
      -> t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t46) -> IO (PQBase t46)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t46)
p45 IO (PQBase t46) -> (PQBase t46 -> IO t46) -> IO t46
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t46 -> IO t46
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45))
          IO
  (t47
   -> t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t47
-> IO
     (t48
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t47) -> IO (PQBase t47)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t47)
p46 IO (PQBase t47) -> (PQBase t47 -> IO t47) -> IO t47
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t47 -> IO t47
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46)) IO
  (t48
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48))
-> IO t48
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t48) -> IO (PQBase t48)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t48)
p47 IO (PQBase t48) -> (PQBase t48 -> IO t48) -> IO t48
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t48 -> IO t48
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48
  , FromSQL t49
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 ->
      (Ptr (PQBase t46)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t46)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t46)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t46)
p45 -> (Ptr (PQBase t47)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t47)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t47)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t47)
p46 -> (Ptr (PQBase t48)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t48)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t48)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t48)
p47 -> (Ptr (PQBase t49)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t49)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49))
-> (Ptr (PQBase t49)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t49)
p48 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> CInt
-> Ptr (PQBase t46)
-> CInt
-> Ptr (PQBase t47)
-> CInt
-> Ptr (PQBase t48)
-> CInt
-> Ptr (PQBase t49)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47 t48 t49.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> CInt
-> Ptr t46
-> CInt
-> Ptr t47
-> CInt
-> Ptr t48
-> CInt
-> Ptr t49
-> IO CInt
c_PQgetf49 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45) Ptr (PQBase t46)
p45 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46) Ptr (PQBase t47)
p46 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47) Ptr (PQBase t48)
p47 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
48) Ptr (PQBase t49)
p48
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> t46
 -> t47
 -> t48
 -> t49
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t43
-> IO
     (t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t44
-> IO
     (t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t45
-> IO
     (t46
      -> t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44)) IO
  (t46
   -> t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t46
-> IO
     (t47
      -> t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t46) -> IO (PQBase t46)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t46)
p45 IO (PQBase t46) -> (PQBase t46 -> IO t46) -> IO t46
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t46 -> IO t46
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45))
          IO
  (t47
   -> t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t47
-> IO
     (t48
      -> t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t47) -> IO (PQBase t47)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t47)
p46 IO (PQBase t47) -> (PQBase t47 -> IO t47) -> IO t47
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t47 -> IO t47
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46)) IO
  (t48
   -> t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t48
-> IO
     (t49
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t48) -> IO (PQBase t48)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t48)
p47 IO (PQBase t48) -> (PQBase t48 -> IO t48) -> IO t48
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t48 -> IO t48
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47))
          IO
  (t49
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49))
-> IO t49
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t49) -> IO (PQBase t49)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t49)
p48 IO (PQBase t49) -> (PQBase t49 -> IO t49) -> IO t49
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t49 -> IO t49
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
48))

instance
  ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6
  , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12
  , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18
  , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24
  , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30
  , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36
  , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42
  , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48
  , FromSQL t49, FromSQL t50
  ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50) where
    fromRow :: Ptr PGresult
-> Ptr PGerror
-> CInt
-> CInt
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
fromRow Ptr PGresult
res Ptr PGerror
err CInt
b CInt
i = (CString
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall row. FromRow row => (CString -> IO row) -> IO row
withFormat ((CString
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (CString
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \CString
fmt ->
      (Ptr (PQBase t1)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t1)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t1)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t1)
p0 -> (Ptr (PQBase t2)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t2)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t2)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t2)
p1 -> (Ptr (PQBase t3)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t3)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t3)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t3)
p2 -> (Ptr (PQBase t4)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t4)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t4)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t4)
p3 -> (Ptr (PQBase t5)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t5)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t5)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t5)
p4 ->
      (Ptr (PQBase t6)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t6)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t6)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t6)
p5 -> (Ptr (PQBase t7)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t7)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t7)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t7)
p6 -> (Ptr (PQBase t8)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t8)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t8)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t8)
p7 -> (Ptr (PQBase t9)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t9)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t9)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t9)
p8 -> (Ptr (PQBase t10)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t10)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t10)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t10)
p9 ->
      (Ptr (PQBase t11)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t11)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t11)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t11)
p10 -> (Ptr (PQBase t12)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t12)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t12)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t12)
p11 -> (Ptr (PQBase t13)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t13)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t13)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t13)
p12 -> (Ptr (PQBase t14)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t14)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t14)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t14)
p13 -> (Ptr (PQBase t15)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t15)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t15)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t15)
p14 ->
      (Ptr (PQBase t16)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t16)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t16)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t16)
p15 -> (Ptr (PQBase t17)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t17)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t17)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t17)
p16 -> (Ptr (PQBase t18)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t18)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t18)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t18)
p17 -> (Ptr (PQBase t19)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t19)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t19)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t19)
p18 -> (Ptr (PQBase t20)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t20)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t20)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t20)
p19 ->
      (Ptr (PQBase t21)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t21)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t21)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t21)
p20 -> (Ptr (PQBase t22)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t22)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t22)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t22)
p21 -> (Ptr (PQBase t23)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t23)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t23)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t23)
p22 -> (Ptr (PQBase t24)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t24)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t24)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t24)
p23 -> (Ptr (PQBase t25)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t25)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t25)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t25)
p24 ->
      (Ptr (PQBase t26)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t26)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t26)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t26)
p25 -> (Ptr (PQBase t27)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t27)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t27)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t27)
p26 -> (Ptr (PQBase t28)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t28)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t28)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t28)
p27 -> (Ptr (PQBase t29)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t29)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t29)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t29)
p28 -> (Ptr (PQBase t30)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t30)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t30)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t30)
p29 ->
      (Ptr (PQBase t31)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t31)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t31)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t31)
p30 -> (Ptr (PQBase t32)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t32)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t32)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t32)
p31 -> (Ptr (PQBase t33)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t33)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t33)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t33)
p32 -> (Ptr (PQBase t34)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t34)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t34)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t34)
p33 -> (Ptr (PQBase t35)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t35)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t35)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t35)
p34 ->
      (Ptr (PQBase t36)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t36)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t36)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t36)
p35 -> (Ptr (PQBase t37)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t37)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t37)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t37)
p36 -> (Ptr (PQBase t38)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t38)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t38)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t38)
p37 -> (Ptr (PQBase t39)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t39)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t39)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t39)
p38 -> (Ptr (PQBase t40)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t40)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t40)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t40)
p39 ->
      (Ptr (PQBase t41)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t41)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t41)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t41)
p40 -> (Ptr (PQBase t42)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t42)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t42)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t42)
p41 -> (Ptr (PQBase t43)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t43)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t43)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t43)
p42 -> (Ptr (PQBase t44)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t44)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t44)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t44)
p43 -> (Ptr (PQBase t45)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t45)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t45)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t45)
p44 ->
      (Ptr (PQBase t46)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t46)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t46)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t46)
p45 -> (Ptr (PQBase t47)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t47)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t47)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t47)
p46 -> (Ptr (PQBase t48)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t48)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t48)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t48)
p47 -> (Ptr (PQBase t49)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t49)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t49)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t49)
p48 -> (Ptr (PQBase t50)
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr (PQBase t50)
  -> IO
       (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
        t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
        t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
        t42, t43, t44, t45, t46, t47, t48, t49, t50))
 -> IO
      (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
       t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
       t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
       t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> (Ptr (PQBase t50)
    -> IO
         (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
          t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
          t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
          t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. (a -> b) -> a -> b
$ \Ptr (PQBase t50)
p49 -> do
        Ptr PGerror -> CInt -> IO ()
verify Ptr PGerror
err (CInt -> IO ()) -> IO CInt -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr (PQBase t1)
-> CInt
-> Ptr (PQBase t2)
-> CInt
-> Ptr (PQBase t3)
-> CInt
-> Ptr (PQBase t4)
-> CInt
-> Ptr (PQBase t5)
-> CInt
-> Ptr (PQBase t6)
-> CInt
-> Ptr (PQBase t7)
-> CInt
-> Ptr (PQBase t8)
-> CInt
-> Ptr (PQBase t9)
-> CInt
-> Ptr (PQBase t10)
-> CInt
-> Ptr (PQBase t11)
-> CInt
-> Ptr (PQBase t12)
-> CInt
-> Ptr (PQBase t13)
-> CInt
-> Ptr (PQBase t14)
-> CInt
-> Ptr (PQBase t15)
-> CInt
-> Ptr (PQBase t16)
-> CInt
-> Ptr (PQBase t17)
-> CInt
-> Ptr (PQBase t18)
-> CInt
-> Ptr (PQBase t19)
-> CInt
-> Ptr (PQBase t20)
-> CInt
-> Ptr (PQBase t21)
-> CInt
-> Ptr (PQBase t22)
-> CInt
-> Ptr (PQBase t23)
-> CInt
-> Ptr (PQBase t24)
-> CInt
-> Ptr (PQBase t25)
-> CInt
-> Ptr (PQBase t26)
-> CInt
-> Ptr (PQBase t27)
-> CInt
-> Ptr (PQBase t28)
-> CInt
-> Ptr (PQBase t29)
-> CInt
-> Ptr (PQBase t30)
-> CInt
-> Ptr (PQBase t31)
-> CInt
-> Ptr (PQBase t32)
-> CInt
-> Ptr (PQBase t33)
-> CInt
-> Ptr (PQBase t34)
-> CInt
-> Ptr (PQBase t35)
-> CInt
-> Ptr (PQBase t36)
-> CInt
-> Ptr (PQBase t37)
-> CInt
-> Ptr (PQBase t38)
-> CInt
-> Ptr (PQBase t39)
-> CInt
-> Ptr (PQBase t40)
-> CInt
-> Ptr (PQBase t41)
-> CInt
-> Ptr (PQBase t42)
-> CInt
-> Ptr (PQBase t43)
-> CInt
-> Ptr (PQBase t44)
-> CInt
-> Ptr (PQBase t45)
-> CInt
-> Ptr (PQBase t46)
-> CInt
-> Ptr (PQBase t47)
-> CInt
-> Ptr (PQBase t48)
-> CInt
-> Ptr (PQBase t49)
-> CInt
-> Ptr (PQBase t50)
-> IO CInt
forall t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17
       t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32 t33 t34
       t35 t36 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t50.
Ptr PGresult
-> Ptr PGerror
-> CInt
-> CString
-> CInt
-> Ptr t1
-> CInt
-> Ptr t2
-> CInt
-> Ptr t3
-> CInt
-> Ptr t4
-> CInt
-> Ptr t5
-> CInt
-> Ptr t6
-> CInt
-> Ptr t7
-> CInt
-> Ptr t8
-> CInt
-> Ptr t9
-> CInt
-> Ptr t10
-> CInt
-> Ptr t11
-> CInt
-> Ptr t12
-> CInt
-> Ptr t13
-> CInt
-> Ptr t14
-> CInt
-> Ptr t15
-> CInt
-> Ptr t16
-> CInt
-> Ptr t17
-> CInt
-> Ptr t18
-> CInt
-> Ptr t19
-> CInt
-> Ptr t20
-> CInt
-> Ptr t21
-> CInt
-> Ptr t22
-> CInt
-> Ptr t23
-> CInt
-> Ptr t24
-> CInt
-> Ptr t25
-> CInt
-> Ptr t26
-> CInt
-> Ptr t27
-> CInt
-> Ptr t28
-> CInt
-> Ptr t29
-> CInt
-> Ptr t30
-> CInt
-> Ptr t31
-> CInt
-> Ptr t32
-> CInt
-> Ptr t33
-> CInt
-> Ptr t34
-> CInt
-> Ptr t35
-> CInt
-> Ptr t36
-> CInt
-> Ptr t37
-> CInt
-> Ptr t38
-> CInt
-> Ptr t39
-> CInt
-> Ptr t40
-> CInt
-> Ptr t41
-> CInt
-> Ptr t42
-> CInt
-> Ptr t43
-> CInt
-> Ptr t44
-> CInt
-> Ptr t45
-> CInt
-> Ptr t46
-> CInt
-> Ptr t47
-> CInt
-> Ptr t48
-> CInt
-> Ptr t49
-> CInt
-> Ptr t50
-> IO CInt
c_PQgetf50 Ptr PGresult
res Ptr PGerror
err CInt
i CString
fmt CInt
b Ptr (PQBase t1)
p0 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1) Ptr (PQBase t2)
p1 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2) Ptr (PQBase t3)
p2 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3) Ptr (PQBase t4)
p3 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4) Ptr (PQBase t5)
p4 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5) Ptr (PQBase t6)
p5 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6) Ptr (PQBase t7)
p6 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7) Ptr (PQBase t8)
p7 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8) Ptr (PQBase t9)
p8 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9) Ptr (PQBase t10)
p9 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10) Ptr (PQBase t11)
p10 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11) Ptr (PQBase t12)
p11 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12) Ptr (PQBase t13)
p12 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13) Ptr (PQBase t14)
p13 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14) Ptr (PQBase t15)
p14 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15) Ptr (PQBase t16)
p15 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16) Ptr (PQBase t17)
p16 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17) Ptr (PQBase t18)
p17 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18) Ptr (PQBase t19)
p18 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19) Ptr (PQBase t20)
p19 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20) Ptr (PQBase t21)
p20 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21) Ptr (PQBase t22)
p21 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22) Ptr (PQBase t23)
p22 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23) Ptr (PQBase t24)
p23 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24) Ptr (PQBase t25)
p24 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25) Ptr (PQBase t26)
p25 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26) Ptr (PQBase t27)
p26 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27) Ptr (PQBase t28)
p27 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28) Ptr (PQBase t29)
p28 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29) Ptr (PQBase t30)
p29 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30) Ptr (PQBase t31)
p30 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31) Ptr (PQBase t32)
p31 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32) Ptr (PQBase t33)
p32 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33) Ptr (PQBase t34)
p33 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34) Ptr (PQBase t35)
p34 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35) Ptr (PQBase t36)
p35 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36) Ptr (PQBase t37)
p36 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37) Ptr (PQBase t38)
p37 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38) Ptr (PQBase t39)
p38 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39) Ptr (PQBase t40)
p39 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40) Ptr (PQBase t41)
p40 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41) Ptr (PQBase t42)
p41 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42) Ptr (PQBase t43)
p42 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43) Ptr (PQBase t44)
p43 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44) Ptr (PQBase t45)
p44 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45) Ptr (PQBase t46)
p45 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46) Ptr (PQBase t47)
p46 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47) Ptr (PQBase t48)
p47 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
48) Ptr (PQBase t49)
p48 (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
49) Ptr (PQBase t50)
p49
        (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
          (t1
 -> t2
 -> t3
 -> t4
 -> t5
 -> t6
 -> t7
 -> t8
 -> t9
 -> t10
 -> t11
 -> t12
 -> t13
 -> t14
 -> t15
 -> t16
 -> t17
 -> t18
 -> t19
 -> t20
 -> t21
 -> t22
 -> t23
 -> t24
 -> t25
 -> t26
 -> t27
 -> t28
 -> t29
 -> t30
 -> t31
 -> t32
 -> t33
 -> t34
 -> t35
 -> t36
 -> t37
 -> t38
 -> t39
 -> t40
 -> t41
 -> t42
 -> t43
 -> t44
 -> t45
 -> t46
 -> t47
 -> t48
 -> t49
 -> t50
 -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
     t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
     t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
     t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t1
-> IO
     (t2
      -> t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Ptr (PQBase t1) -> IO (PQBase t1)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t1)
p0 IO (PQBase t1) -> (PQBase t1 -> IO t1) -> IO t1
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t1 -> IO t1
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i CInt
b) IO
  (t2
   -> t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t2
-> IO
     (t3
      -> t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t2) -> IO (PQBase t2)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t2)
p1 IO (PQBase t2) -> (PQBase t2 -> IO t2) -> IO t2
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t2 -> IO t2
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
1))
          IO
  (t3
   -> t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t3
-> IO
     (t4
      -> t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t3) -> IO (PQBase t3)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t3)
p2 IO (PQBase t3) -> (PQBase t3 -> IO t3) -> IO t3
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t3 -> IO t3
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
2)) IO
  (t4
   -> t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t4
-> IO
     (t5
      -> t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t4) -> IO (PQBase t4)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t4)
p3 IO (PQBase t4) -> (PQBase t4 -> IO t4) -> IO t4
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t4 -> IO t4
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
3))
          IO
  (t5
   -> t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t5
-> IO
     (t6
      -> t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t5) -> IO (PQBase t5)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t5)
p4 IO (PQBase t5) -> (PQBase t5 -> IO t5) -> IO t5
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t5 -> IO t5
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
4)) IO
  (t6
   -> t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t6
-> IO
     (t7
      -> t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t6) -> IO (PQBase t6)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t6)
p5 IO (PQBase t6) -> (PQBase t6 -> IO t6) -> IO t6
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t6 -> IO t6
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
5))
          IO
  (t7
   -> t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t7
-> IO
     (t8
      -> t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t7) -> IO (PQBase t7)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t7)
p6 IO (PQBase t7) -> (PQBase t7 -> IO t7) -> IO t7
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t7 -> IO t7
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
6)) IO
  (t8
   -> t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t8
-> IO
     (t9
      -> t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t8) -> IO (PQBase t8)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t8)
p7 IO (PQBase t8) -> (PQBase t8 -> IO t8) -> IO t8
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t8 -> IO t8
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
7))
          IO
  (t9
   -> t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t9
-> IO
     (t10
      -> t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t9) -> IO (PQBase t9)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t9)
p8 IO (PQBase t9) -> (PQBase t9 -> IO t9) -> IO t9
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t9 -> IO t9
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
8)) IO
  (t10
   -> t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t10
-> IO
     (t11
      -> t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t10) -> IO (PQBase t10)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t10)
p9 IO (PQBase t10) -> (PQBase t10 -> IO t10) -> IO t10
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t10 -> IO t10
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
9))
          IO
  (t11
   -> t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t11
-> IO
     (t12
      -> t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t11) -> IO (PQBase t11)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t11)
p10 IO (PQBase t11) -> (PQBase t11 -> IO t11) -> IO t11
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t11 -> IO t11
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
10)) IO
  (t12
   -> t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t12
-> IO
     (t13
      -> t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t12) -> IO (PQBase t12)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t12)
p11 IO (PQBase t12) -> (PQBase t12 -> IO t12) -> IO t12
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t12 -> IO t12
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
11))
          IO
  (t13
   -> t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t13
-> IO
     (t14
      -> t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t13) -> IO (PQBase t13)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t13)
p12 IO (PQBase t13) -> (PQBase t13 -> IO t13) -> IO t13
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t13 -> IO t13
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
12)) IO
  (t14
   -> t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t14
-> IO
     (t15
      -> t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t14) -> IO (PQBase t14)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t14)
p13 IO (PQBase t14) -> (PQBase t14 -> IO t14) -> IO t14
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t14 -> IO t14
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
13))
          IO
  (t15
   -> t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t15
-> IO
     (t16
      -> t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t15) -> IO (PQBase t15)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t15)
p14 IO (PQBase t15) -> (PQBase t15 -> IO t15) -> IO t15
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t15 -> IO t15
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
14)) IO
  (t16
   -> t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t16
-> IO
     (t17
      -> t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t16) -> IO (PQBase t16)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t16)
p15 IO (PQBase t16) -> (PQBase t16 -> IO t16) -> IO t16
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t16 -> IO t16
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
15))
          IO
  (t17
   -> t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t17
-> IO
     (t18
      -> t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t17) -> IO (PQBase t17)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t17)
p16 IO (PQBase t17) -> (PQBase t17 -> IO t17) -> IO t17
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t17 -> IO t17
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
16)) IO
  (t18
   -> t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t18
-> IO
     (t19
      -> t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t18) -> IO (PQBase t18)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t18)
p17 IO (PQBase t18) -> (PQBase t18 -> IO t18) -> IO t18
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t18 -> IO t18
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
17))
          IO
  (t19
   -> t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t19
-> IO
     (t20
      -> t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t19) -> IO (PQBase t19)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t19)
p18 IO (PQBase t19) -> (PQBase t19 -> IO t19) -> IO t19
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t19 -> IO t19
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
18)) IO
  (t20
   -> t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t20
-> IO
     (t21
      -> t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t20) -> IO (PQBase t20)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t20)
p19 IO (PQBase t20) -> (PQBase t20 -> IO t20) -> IO t20
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t20 -> IO t20
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
19))
          IO
  (t21
   -> t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t21
-> IO
     (t22
      -> t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t21) -> IO (PQBase t21)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t21)
p20 IO (PQBase t21) -> (PQBase t21 -> IO t21) -> IO t21
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t21 -> IO t21
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
20)) IO
  (t22
   -> t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t22
-> IO
     (t23
      -> t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t22) -> IO (PQBase t22)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t22)
p21 IO (PQBase t22) -> (PQBase t22 -> IO t22) -> IO t22
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t22 -> IO t22
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
21))
          IO
  (t23
   -> t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t23
-> IO
     (t24
      -> t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t23) -> IO (PQBase t23)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t23)
p22 IO (PQBase t23) -> (PQBase t23 -> IO t23) -> IO t23
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t23 -> IO t23
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
22)) IO
  (t24
   -> t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t24
-> IO
     (t25
      -> t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t24) -> IO (PQBase t24)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t24)
p23 IO (PQBase t24) -> (PQBase t24 -> IO t24) -> IO t24
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t24 -> IO t24
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
23))
          IO
  (t25
   -> t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t25
-> IO
     (t26
      -> t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t25) -> IO (PQBase t25)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t25)
p24 IO (PQBase t25) -> (PQBase t25 -> IO t25) -> IO t25
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t25 -> IO t25
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
24)) IO
  (t26
   -> t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t26
-> IO
     (t27
      -> t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t26) -> IO (PQBase t26)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t26)
p25 IO (PQBase t26) -> (PQBase t26 -> IO t26) -> IO t26
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t26 -> IO t26
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
25))
          IO
  (t27
   -> t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t27
-> IO
     (t28
      -> t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t27) -> IO (PQBase t27)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t27)
p26 IO (PQBase t27) -> (PQBase t27 -> IO t27) -> IO t27
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t27 -> IO t27
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
26)) IO
  (t28
   -> t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t28
-> IO
     (t29
      -> t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t28) -> IO (PQBase t28)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t28)
p27 IO (PQBase t28) -> (PQBase t28 -> IO t28) -> IO t28
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t28 -> IO t28
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
27))
          IO
  (t29
   -> t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t29
-> IO
     (t30
      -> t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t29) -> IO (PQBase t29)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t29)
p28 IO (PQBase t29) -> (PQBase t29 -> IO t29) -> IO t29
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t29 -> IO t29
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
28)) IO
  (t30
   -> t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t30
-> IO
     (t31
      -> t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t30) -> IO (PQBase t30)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t30)
p29 IO (PQBase t30) -> (PQBase t30 -> IO t30) -> IO t30
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t30 -> IO t30
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
29))
          IO
  (t31
   -> t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t31
-> IO
     (t32
      -> t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t31) -> IO (PQBase t31)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t31)
p30 IO (PQBase t31) -> (PQBase t31 -> IO t31) -> IO t31
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t31 -> IO t31
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
30)) IO
  (t32
   -> t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t32
-> IO
     (t33
      -> t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t32) -> IO (PQBase t32)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t32)
p31 IO (PQBase t32) -> (PQBase t32 -> IO t32) -> IO t32
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t32 -> IO t32
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
31))
          IO
  (t33
   -> t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t33
-> IO
     (t34
      -> t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t33) -> IO (PQBase t33)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t33)
p32 IO (PQBase t33) -> (PQBase t33 -> IO t33) -> IO t33
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t33 -> IO t33
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
32)) IO
  (t34
   -> t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t34
-> IO
     (t35
      -> t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t34) -> IO (PQBase t34)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t34)
p33 IO (PQBase t34) -> (PQBase t34 -> IO t34) -> IO t34
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t34 -> IO t34
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
33))
          IO
  (t35
   -> t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t35
-> IO
     (t36
      -> t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t35) -> IO (PQBase t35)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t35)
p34 IO (PQBase t35) -> (PQBase t35 -> IO t35) -> IO t35
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t35 -> IO t35
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
34)) IO
  (t36
   -> t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t36
-> IO
     (t37
      -> t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t36) -> IO (PQBase t36)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t36)
p35 IO (PQBase t36) -> (PQBase t36 -> IO t36) -> IO t36
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t36 -> IO t36
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
35))
          IO
  (t37
   -> t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t37
-> IO
     (t38
      -> t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t37) -> IO (PQBase t37)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t37)
p36 IO (PQBase t37) -> (PQBase t37 -> IO t37) -> IO t37
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t37 -> IO t37
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
36)) IO
  (t38
   -> t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t38
-> IO
     (t39
      -> t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t38) -> IO (PQBase t38)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t38)
p37 IO (PQBase t38) -> (PQBase t38 -> IO t38) -> IO t38
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t38 -> IO t38
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
37))
          IO
  (t39
   -> t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t39
-> IO
     (t40
      -> t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t39) -> IO (PQBase t39)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t39)
p38 IO (PQBase t39) -> (PQBase t39 -> IO t39) -> IO t39
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t39 -> IO t39
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
38)) IO
  (t40
   -> t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t40
-> IO
     (t41
      -> t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t40) -> IO (PQBase t40)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t40)
p39 IO (PQBase t40) -> (PQBase t40 -> IO t40) -> IO t40
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t40 -> IO t40
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
39))
          IO
  (t41
   -> t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t41
-> IO
     (t42
      -> t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t41) -> IO (PQBase t41)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t41)
p40 IO (PQBase t41) -> (PQBase t41 -> IO t41) -> IO t41
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t41 -> IO t41
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
40)) IO
  (t42
   -> t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t42
-> IO
     (t43
      -> t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t42) -> IO (PQBase t42)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t42)
p41 IO (PQBase t42) -> (PQBase t42 -> IO t42) -> IO t42
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t42 -> IO t42
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
41))
          IO
  (t43
   -> t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t43
-> IO
     (t44
      -> t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t43) -> IO (PQBase t43)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t43)
p42 IO (PQBase t43) -> (PQBase t43 -> IO t43) -> IO t43
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t43 -> IO t43
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
42)) IO
  (t44
   -> t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t44
-> IO
     (t45
      -> t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t44) -> IO (PQBase t44)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t44)
p43 IO (PQBase t44) -> (PQBase t44 -> IO t44) -> IO t44
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t44 -> IO t44
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
43))
          IO
  (t45
   -> t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t45
-> IO
     (t46
      -> t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t45) -> IO (PQBase t45)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t45)
p44 IO (PQBase t45) -> (PQBase t45 -> IO t45) -> IO t45
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t45 -> IO t45
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
44)) IO
  (t46
   -> t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t46
-> IO
     (t47
      -> t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t46) -> IO (PQBase t46)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t46)
p45 IO (PQBase t46) -> (PQBase t46 -> IO t46) -> IO t46
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t46 -> IO t46
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
45))
          IO
  (t47
   -> t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t47
-> IO
     (t48
      -> t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t47) -> IO (PQBase t47)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t47)
p46 IO (PQBase t47) -> (PQBase t47 -> IO t47) -> IO t47
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t47 -> IO t47
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
46)) IO
  (t48
   -> t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t48
-> IO
     (t49
      -> t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t48) -> IO (PQBase t48)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t48)
p47 IO (PQBase t48) -> (PQBase t48 -> IO t48) -> IO t48
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t48 -> IO t48
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
47))
          IO
  (t49
   -> t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t49
-> IO
     (t50
      -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
          t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
          t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
          t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t49) -> IO (PQBase t49)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t49)
p48 IO (PQBase t49) -> (PQBase t49 -> IO t49) -> IO t49
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t49 -> IO t49
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
48)) IO
  (t50
   -> (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14,
       t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27,
       t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40,
       t41, t42, t43, t44, t45, t46, t47, t48, t49, t50))
-> IO t50
-> IO
     (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15,
      t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28,
      t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41,
      t42, t43, t44, t45, t46, t47, t48, t49, t50)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (Ptr (PQBase t50) -> IO (PQBase t50)
forall a. Storable a => Ptr a -> IO a
peek Ptr (PQBase t50)
p49 IO (PQBase t50) -> (PQBase t50 -> IO t50) -> IO t50
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Ptr PGresult -> CInt -> CInt -> PQBase t50 -> IO t50
forall t.
FromSQL t =>
Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t
convert Ptr PGresult
res CInt
i (CInt
bCInt -> CInt -> CInt
forall a. Num a => a -> a -> a
+CInt
49))