diff --git a/ChangeLog.md b/ChangeLog.md --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,5 +1,12 @@ # Changelog for postgresql-pure +## 0.2.3.0 + +2021.03.27 + +- Add GHC 8.10 support, remove GHC 8.4 support. +- Expose `SqlIdentifier` and `TimeOfDayWithTimeZone`. + ## 0.2.2.0 2020.07.19 diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -1,6 +1,6 @@ # postgresql-pure -[![Hackage](https://matrix.hackage.haskell.org/api/v2/packages/postgresql-pure/badge)](http://hackage.haskell.org/package/postgresql-pure) [![Haddock](https://img.shields.io/badge/Haddock-0.2.2.0-blue)](https://iij-ii.github.io/postgresql-pure/) [![CI build](https://github.com/iij-ii/postgresql-pure/workflows/build/badge.svg)](https://github.com/iij-ii/postgresql-pure/actions?query=workflow%3Abuild) [![CI test](https://github.com/iij-ii/postgresql-pure/workflows/test/badge.svg)](https://github.com/iij-ii/postgresql-pure/actions?query=workflow%3Atest) +[![Hackage](https://matrix.hackage.haskell.org/api/v2/packages/postgresql-pure/badge)](http://hackage.haskell.org/package/postgresql-pure) [![Haddock](https://img.shields.io/badge/Haddock-0.2.3.0-blue)](https://iij-ii.github.io/postgresql-pure/) [![CI build](https://github.com/iij-ii/postgresql-pure/workflows/build/badge.svg)](https://github.com/iij-ii/postgresql-pure/actions?query=workflow%3Abuild) [![CI test](https://github.com/iij-ii/postgresql-pure/workflows/test/badge.svg)](https://github.com/iij-ii/postgresql-pure/actions?query=workflow%3Atest) ## Copyright diff --git a/benchmark/requests-per-second.hs b/benchmark/requests-per-second.hs --- a/benchmark/requests-per-second.hs +++ b/benchmark/requests-per-second.hs @@ -22,7 +22,7 @@ import Data.Maybe import Data.Proxy import Data.Scientific (Scientific) -import Data.Time (Day, DiffTime, LocalTime, TimeOfDay, TimeZone, UTCTime) +import Data.Time (Day, DiffTime, LocalTime, TimeOfDay, UTCTime) import Data.Tuple.Homotuple.Only () import Data.Tuple.Only import Options.Applicative @@ -199,14 +199,14 @@ resultOids = (Pure.int4, Pure.int8, Pure.numeric, Pure.float4, Pure.float8, Pure.varchar, Pure.text, Pure.bytea, Pure.timestamp, Pure.timestamptz, Pure.date, Pure.time, Pure.timetz, Pure.interval, Pure.bool) psProc = Pure.parse "ps" (Pure.Query statement) (Just (Proxy, resultOids)) :: Pure.PreparedStatementProcedure 0 15 pProc = fromJust $ Pure.bind "" Pure.BinaryFormat Pure.BinaryFormat (Pure.parameters c) (const $ fail "") () psProc :: Pure.PortalProcedure 0 15 - eProc = Pure.execute 0 (const $ fail "") pProc :: Pure.ExecutedProcedure 0 15 (Int32, Int64, Scientific, Float, Double, ByteString, ByteString, ByteString, LocalTime, UTCTime, Day, TimeOfDay, (TimeOfDay, TimeZone), DiffTime, Bool) + eProc = Pure.execute 0 (const $ fail "") pProc :: Pure.ExecutedProcedure 0 15 (Int32, Int64, Scientific, Float, Double, ByteString, ByteString, ByteString, LocalTime, UTCTime, Day, TimeOfDay, Pure.TimeOfDayWithTimeZone, DiffTime, Bool) ((ps, _, e, _), _) <- Pure.sync c eProc deepseq (Pure.records e) $ pure () writeIORef psRef $ Just ps Just ps -> do let pProc = fromJust $ Pure.bind "" Pure.BinaryFormat Pure.BinaryFormat (Pure.parameters c) (const $ fail "") () ps :: Pure.PortalProcedure 0 15 - eProc = Pure.execute 0 (const $ fail "") pProc :: Pure.ExecutedProcedure 0 15 (Int32, Int64, Scientific, Float, Double, ByteString, ByteString, ByteString, LocalTime, UTCTime, Day, TimeOfDay, (TimeOfDay, TimeZone), DiffTime, Bool) + eProc = Pure.execute 0 (const $ fail "") pProc :: Pure.ExecutedProcedure 0 15 (Int32, Int64, Scientific, Float, Double, ByteString, ByteString, ByteString, LocalTime, UTCTime, Day, TimeOfDay, Pure.TimeOfDayWithTimeZone, DiffTime, Bool) void $ Pure.sync c eProc _ -> benchRequests ((,) <$> connect <*> newIORef Nothing) $ \(c, psRef) -> do diff --git a/postgresql-pure.cabal b/postgresql-pure.cabal --- a/postgresql-pure.cabal +++ b/postgresql-pure.cabal @@ -1,444 +1,230 @@ -cabal-version: 2.2 - --- This file has been generated from package.yaml by hpack version 0.33.0. --- --- see: https://github.com/sol/hpack --- --- hash: 5f059edd27ff8ab95243b3a3495424fd88f57773838ad8494cfa4c4d1816aff7 +cabal-version: 2.2 -name: postgresql-pure -version: 0.2.2.0 -synopsis: pure Haskell PostgreSQL driver -description: pure Haskell PostgreSQL driver -category: Database -homepage: https://github.com/iij-ii/postgresql-pure#readme -bug-reports: https://github.com/iij-ii/postgresql-pure/issues -author: Kazuki Okamoto -maintainer: kazukiokamoto@iij.ad.jp -copyright: 2019 IIJ Innovation Institute Inc. -license: BSD-3-Clause -license-file: LICENSE -build-type: Custom -extra-source-files: - README.md - ChangeLog.md - template/Builder.hs - template/BuilderItem.hs - template/Parser.hs - template/ParserItem.hs - template/Length.hs - template/LengthItem.hs +name: postgresql-pure +version: 0.2.3.0 +synopsis: pure Haskell PostgreSQL driver +description: pure Haskell PostgreSQL driver +category: Database +homepage: https://github.com/kakkun61/postgresql-pure +bug-reports: https://github.com/kakkun61/postgresql-pure/issues +author: Kazuki Okamoto +maintainer: kazuki.okamoto@kakkun61.com +copyright: 2021 Kazuki Okamoto (岡本和樹), 2019 IIJ Innovation Institute Inc. +license: BSD-3-Clause +license-file: LICENSE +build-type: Custom +extra-source-files: README.md + ChangeLog.md + template/Builder.hs + template/BuilderItem.hs + template/Parser.hs + template/ParserItem.hs + template/Length.hs + template/LengthItem.hs source-repository head type: git - location: https://github.com/iij-ii/postgresql-pure + location: https://github.com/kakkun61/postgresql-pure custom-setup - setup-depends: - Cabal - , base - , directory - , filepath + setup-depends: Cabal, + base >= 4.12 && < 5, + directory, + filepath flag pure-md5 manual: False default: False +common common + build-depends: base >= 4.12 && < 5 + ghc-options: -Wall + -Wcompat + -Wno-name-shadowing + default-language: Haskell2010 + library - exposed-modules: - Database.HDBC.PostgreSQL.Pure - Database.PostgreSQL.Pure - Database.PostgreSQL.Pure.List - Database.PostgreSQL.Pure.Oid - Database.PostgreSQL.Pure.Parser - other-modules: - Database.PostgreSQL.Pure.Internal.Connection - Database.PostgreSQL.Pure.Internal.Data - Database.PostgreSQL.Pure.Internal.Exception - Database.PostgreSQL.Pure.Internal.MonadFail - Database.PostgreSQL.Pure.Internal.Query - Database.PostgreSQL.Pure.Internal.SocketIO - Database.PostgreSQL.Simple.Time.Internal.Parser - Database.PostgreSQL.Simple.Time.Internal.Printer - Database.PostgreSQL.Pure.Internal.Builder - Database.PostgreSQL.Pure.Internal.Parser - Database.PostgreSQL.Pure.Internal.Length - Paths_postgresql_pure - autogen-modules: - Database.PostgreSQL.Pure.Internal.Builder - Database.PostgreSQL.Pure.Internal.Parser - Database.PostgreSQL.Pure.Internal.Length - Paths_postgresql_pure - hs-source-dirs: - src + import: common + exposed-modules: Database.HDBC.PostgreSQL.Pure + Database.PostgreSQL.Pure + Database.PostgreSQL.Pure.List + Database.PostgreSQL.Pure.Oid + Database.PostgreSQL.Pure.Parser + other-modules: Database.PostgreSQL.Pure.Internal.Connection + Database.PostgreSQL.Pure.Internal.Data + Database.PostgreSQL.Pure.Internal.Exception + Database.PostgreSQL.Pure.Internal.MonadFail + Database.PostgreSQL.Pure.Internal.Query + Database.PostgreSQL.Pure.Internal.SocketIO + Database.PostgreSQL.Simple.Time.Internal.Parser + Database.PostgreSQL.Simple.Time.Internal.Printer + Database.PostgreSQL.Pure.Internal.Builder + Database.PostgreSQL.Pure.Internal.Parser + Database.PostgreSQL.Pure.Internal.Length + Paths_postgresql_pure + autogen-modules: Database.PostgreSQL.Pure.Internal.Builder + Database.PostgreSQL.Pure.Internal.Parser + Database.PostgreSQL.Pure.Internal.Length + Paths_postgresql_pure + hs-source-dirs: src default-extensions: Strict - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -Wmissing-import-lists - build-depends: - HDBC - , OneTuple - , Only - , attoparsec - , base >=4.7 - , base16-bytestring - , bytestring - , containers - , convertible - , data-default-class - , double-conversion - , homotuple - , list-tuple - , memory - , mtl - , network - , postgresql-binary - , postgresql-placeholder-converter - , pretty-hex - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string + ghc-options: -Wincomplete-uni-patterns + -Wincomplete-record-updates + -Wmonomorphism-restriction + -Wmissing-exported-signatures + -Wmissing-export-lists + -Wmissing-home-modules + -Widentities + -Wredundant-constraints + -Wpartial-fields + -Wno-name-shadowing + -Wmissing-import-lists + build-depends: HDBC, + OneTuple, + Only, + attoparsec, + base16-bytestring, + bytestring, + containers, + convertible, + data-default-class, + deepseq, + double-conversion, + homotuple, + list-tuple, + memory, + mtl, + network, + postgresql-binary, + postgresql-placeholder-converter, + pretty-hex, + safe-exceptions, + scientific, + single-tuple, + text, + time, + utf8-string if flag(pure-md5) cpp-options: -DPURE_MD5 - build-depends: - pureMD5 + build-depends: pureMD5 else - build-depends: - cryptohash-md5 - default-language: Haskell2010 + build-depends: cryptohash-md5 test-suite doctest + import: common type: exitcode-stdio-1.0 main-is: doctest.hs - other-modules: - Paths_postgresql_pure - hs-source-dirs: - test-doctest - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N -Wno-all -Wno-compat -Wno-incomplete-uni-patterns -Wno-incomplete-record-updates -Wno-monomorphism-restriction -Wno-missing-exported-signatures -Wno-missing-export-lists -Wno-missing-home-modules -Wno-identities -Wno-redundant-constraints -Wno-partial-fields - build-depends: - HDBC - , OneTuple - , Only - , attoparsec - , base >=4.7 - , base16-bytestring - , bytestring - , containers - , convertible - , data-default-class - , doctest - , double-conversion - , homotuple - , list-tuple - , memory - , mtl - , network - , postgresql-binary - , postgresql-placeholder-converter - , pretty-hex - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 - default-language: Haskell2010 + hs-source-dirs: test-doctest + build-depends: doctest test-suite hdbc-postgresql + import: common type: exitcode-stdio-1.0 main-is: runtests.hs - other-modules: - SpecificDB - SpecificDBTests - Testbasics - TestMisc - Tests - TestSbasics - TestTime - TestUtils - Database.HDBC.PostgreSQL.Pure - Database.PostgreSQL.Pure - Database.PostgreSQL.Pure.Internal.Builder - Database.PostgreSQL.Pure.Internal.Connection - Database.PostgreSQL.Pure.Internal.Data - Database.PostgreSQL.Pure.Internal.Exception - Database.PostgreSQL.Pure.Internal.Length - Database.PostgreSQL.Pure.Internal.MonadFail - Database.PostgreSQL.Pure.Internal.Parser - Database.PostgreSQL.Pure.Internal.Query - Database.PostgreSQL.Pure.Internal.SocketIO - Database.PostgreSQL.Pure.List - Database.PostgreSQL.Pure.Oid - Database.PostgreSQL.Pure.Parser - Database.PostgreSQL.Simple.Time.Internal.Parser - Database.PostgreSQL.Simple.Time.Internal.Printer - Paths_postgresql_pure - hs-source-dirs: - test-hdbc-postgresql - src + other-modules: SpecificDB + SpecificDBTests + Testbasics + TestMisc + Tests + TestSbasics + TestTime + TestUtils + hs-source-dirs: test-hdbc-postgresql default-extensions: Strict - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N -Wno-all -Wno-compat -Wno-incomplete-uni-patterns -Wno-incomplete-record-updates -Wno-monomorphism-restriction -Wno-missing-exported-signatures -Wno-missing-export-lists -Wno-missing-home-modules -Wno-identities -Wno-redundant-constraints -Wno-partial-fields - build-depends: - HDBC - , HUnit - , OneTuple - , Only - , QuickCheck - , attoparsec - , base >=4.7 - , base16-bytestring - , bytestring - , containers - , convertible - , data-default-class - , double-conversion - , homotuple - , list-tuple - , memory - , mtl - , network - , old-time - , postgresql-binary - , postgresql-placeholder-converter - , pretty-hex - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 - default-language: Haskell2010 + ghc-options: -Wno-all + build-depends: HDBC, + HUnit, + containers, + convertible, + data-default-class, + either-result, + old-time, + postgresql-placeholder-converter, + postgresql-pure, + time test-suite original + import: common type: exitcode-stdio-1.0 main-is: Spec.hs - other-modules: - Database.HDBC.PostgreSQL.PureSpec - Database.PostgreSQL.Pure.ListSpec - Database.PostgreSQL.PureSpec - Test.Hspec.Core.Hooks.Extra - Paths_postgresql_pure - hs-source-dirs: - test-original - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N -Wno-incomplete-uni-patterns -Wno-missing-export-lists -Wno-monomorphism-restriction - build-depends: - HDBC - , OneTuple - , Only - , attoparsec - , base >=4.7 - , base16-bytestring - , bytestring - , containers - , convertible - , data-default-class - , double-conversion - , homotuple - , hspec - , hspec-core - , list-tuple - , memory - , mtl - , network - , postgresql-binary - , postgresql-placeholder-converter - , postgresql-pure - , pretty-hex - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 - default-language: Haskell2010 + other-modules: Database.HDBC.PostgreSQL.PureSpec + Database.PostgreSQL.Pure.ListSpec + Database.PostgreSQL.PureSpec + Test.Hspec.Core.Hooks.Extra + hs-source-dirs: test-original + build-depends: HDBC, + Only, + attoparsec, + bytestring, + data-default-class, + homotuple, + hspec, + network, + postgresql-pure, + safe-exceptions, + utf8-string + build-tool-depends: hspec-discover:hspec-discover test-suite relational-record + import: common type: exitcode-stdio-1.0 main-is: Spec.hs - other-modules: - DataSource - DataSource.Pure - Relation.Person - Relation.Pure.Person - Paths_postgresql_pure - hs-source-dirs: - test-relational-record - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N -Wno-all -Wno-compat -Wno-incomplete-uni-patterns -Wno-incomplete-record-updates -Wno-monomorphism-restriction -Wno-missing-exported-signatures -Wno-missing-export-lists -Wno-missing-home-modules -Wno-identities -Wno-redundant-constraints -Wno-partial-fields - build-depends: - HDBC - , HDBC-postgresql - , HDBC-session - , OneTuple - , Only - , attoparsec - , base >=4.7 - , base16-bytestring - , bytestring - , containers - , convertible - , data-default-class - , double-conversion - , homotuple - , hspec - , hspec-core - , list-tuple - , memory - , mtl - , network - , persistable-record - , postgresql-binary - , postgresql-placeholder-converter - , postgresql-pure - , pretty-hex - , relational-query - , relational-query-HDBC - , relational-record - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 - default-language: Haskell2010 + other-modules: DataSource + DataSource.Pure + Relation.Person + Relation.Pure.Person + hs-source-dirs: test-relational-record + build-depends: HDBC-postgresql, + HDBC-session, + data-default-class, + hspec, + postgresql-pure, + relational-query, + relational-query-HDBC benchmark requests-per-second + import: common type: exitcode-stdio-1.0 main-is: requests-per-second.hs - other-modules: - RepeatThreadPool - Paths_postgresql_pure - hs-source-dirs: - benchmark - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N - build-depends: - HDBC - , OneTuple - , Only - , attoparsec - , base >=4.7 && <5 - , base16-bytestring - , bytestring - , clock - , containers - , convertible - , data-default-class - , deepseq - , double-conversion - , homotuple - , list-tuple - , memory - , mtl - , network - , optparse-applicative - , postgresql-binary - , postgresql-libpq - , postgresql-placeholder-converter - , postgresql-pure - , pretty-hex - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - , vector - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 + other-modules: RepeatThreadPool + hs-source-dirs: benchmark + build-depends: Only, + bytestring, + clock, + data-default-class, + deepseq, + homotuple, + optparse-applicative, + postgresql-libpq, + postgresql-pure, + scientific, + time if !os(windows) && impl(ghc < 8.8.0) - build-depends: - postgres-wire - default-language: Haskell2010 + build-depends: postgres-wire benchmark requests-per-second-constant + import: common type: exitcode-stdio-1.0 main-is: requests-per-second-constant.hs - other-modules: - RepeatThreadPool - Paths_postgresql_pure - hs-source-dirs: - benchmark - ghc-options: -Wall -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wmonomorphism-restriction -Wmissing-exported-signatures -Wmissing-export-lists -Wmissing-home-modules -Widentities -Wredundant-constraints -Wpartial-fields -Wno-name-shadowing -threaded -rtsopts -with-rtsopts=-N - build-depends: - HDBC - , OneTuple - , Only - , attoparsec - , base >=4.7 && <5 - , base16-bytestring - , bytestring - , cassava - , clock - , containers - , convertible - , data-default-class - , deepseq - , double-conversion - , homotuple - , hourglass - , list-tuple - , memory - , mtl - , network - , optparse-applicative - , postgresql-binary - , postgresql-libpq - , postgresql-placeholder-converter - , postgresql-pure - , postgresql-simple - , pretty-hex - , random-shuffle - , safe-exceptions - , scientific - , single-tuple - , text - , time - , utf8-string - , vector - if flag(pure-md5) - cpp-options: -DPURE_MD5 - build-depends: - pureMD5 - else - build-depends: - cryptohash-md5 + other-modules: RepeatThreadPool + hs-source-dirs: benchmark + build-depends: Only, + attoparsec, + bytestring, + cassava, + clock, + data-default-class, + deepseq, + homotuple, + hourglass, + optparse-applicative, + postgresql-libpq, + postgresql-pure, + postgresql-simple, + postgresql-typed, + random-shuffle, + scientific, + time, + utf8-string if !os(windows) && impl(ghc < 8.8.0) - build-depends: - postgres-wire - if impl(ghc < 8.8.0) - build-depends: - postgresql-typed - default-language: Haskell2010 + build-depends: postgres-wire diff --git a/src/Database/HDBC/PostgreSQL/Pure.hs b/src/Database/HDBC/PostgreSQL/Pure.hs --- a/src/Database/HDBC/PostgreSQL/Pure.hs +++ b/src/Database/HDBC/PostgreSQL/Pure.hs @@ -4,10 +4,8 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeSynonymInstances #-} {-# OPTIONS_GHC -Wno-orphans #-} @@ -49,7 +47,7 @@ import Control.Concurrent (MVar, modifyMVar_, newMVar) import Control.Exception.Safe (Exception (displayException, fromException, toException), impureThrow, try) -import Control.Monad (unless, void) +import Control.Monad (unless, void, (<=<)) import qualified Data.ByteString as BS import qualified Data.ByteString.Builder as BSB import qualified Data.ByteString.Builder.Prim as BSBP @@ -66,8 +64,8 @@ import Data.Scientific (FPFormat (Exponent), Scientific, formatScientific, fromRationalRepetend) import Data.String (IsString (fromString)) -import Data.Time (DiffTime, NominalDiffTime, zonedTimeToUTC) -import Data.Time (TimeOfDay, TimeZone, utc) +import Data.Time (DiffTime, NominalDiffTime, TimeOfDay, TimeZone, utc, + zonedTimeToUTC) import Data.Traversable (for) import Data.Tuple.Only (Only (Only)) import Data.Typeable (Typeable, cast) @@ -154,7 +152,7 @@ Connection { connection :: Pure.Connection , statementCounter :: IORef Word - , unnecessaryPreparedStatemtnts :: MVar [Pure.PreparedStatement] -- To accumulate unnecessary prepared statements + , unnecessaryPreparedStatements :: MVar [Pure.PreparedStatement] -- To accumulate unnecessary prepared statements -- to dispose them when some requests come, -- because HDBC doesn't have a interface to close statements. , config :: Config @@ -180,17 +178,17 @@ commit hc@Connection { connection } = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc void $ Pure.sync connection (Pure.commit, Pure.begin) rollback hc@Connection { connection } = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc void $ Pure.sync connection (Pure.rollback, Pure.begin) run hc@Connection { connection = connection@Pure.Connection { parameters }, config = Config { encodeString, decodeString } } query values = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc charCode <- lookupClientEncoding parameters let encode = encodeString charCode @@ -210,7 +208,7 @@ runRaw hc@Connection { connection = connection@Pure.Connection { parameters }, config = Config { encodeString, decodeString } } query = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc charCode <- lookupClientEncoding parameters let encode = encodeString charCode @@ -220,9 +218,9 @@ ps <- Pure.flush connection $ Pure.parse "" (Pure.Query q) (Left (0, 0)) -- footnote [1] Pure.flush connection $ Pure.execute @_ @() 0 decode $ forceBind $ Pure.bind "" Pure.TextFormat Pure.TextFormat parameters encode ([] :: [SqlValue]) ps - prepare hc@Connection { connection = connection@Pure.Connection { parameters }, statementCounter, unnecessaryPreparedStatemtnts, config = Config { encodeString, decodeString } } query = + prepare hc@Connection { connection = connection@Pure.Connection { parameters }, statementCounter, unnecessaryPreparedStatements, config = Config { encodeString, decodeString } } query = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc count <- incrementCounter statementCounter portalCounter <- newIORef 0 charCode <- lookupClientEncoding parameters @@ -247,7 +245,7 @@ execute :: [SqlValue] -> IO Integer execute values = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc finish' count <- incrementCounter portalCounter countBS <- encodeIO $ show count @@ -269,7 +267,7 @@ executeMany :: [[SqlValue]] -> IO () executeMany valuess = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc finish' eProcs <- for valuess $ \values -> do @@ -292,7 +290,7 @@ finish :: IO () finish = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc finish' keepPreparedStatementAlive writeIORef portalsRef [] @@ -305,7 +303,7 @@ fetchRow :: IO (Maybe [SqlValue]) fetchRow = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc ps <- readIORef portalsRef case ps of (Just r, p):ps -> do @@ -327,7 +325,7 @@ getColumnNames :: IO [String] getColumnNames = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc sequence $ decodeIO . getField @"name" <$> Pure.resultInfos preparedStatement originalQuery :: String @@ -336,7 +334,7 @@ describeResult :: IO [(String, SqlColDesc)] describeResult = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc let columnInfos = Pure.resultInfos preparedStatement psProc = Pure.parse "attr" "SELECT attnotnull FROM pg_attribute WHERE attrelid = $1 AND attnum = $2" (Right ([Oid.oid, Oid.int2], [Oid.bool])) @@ -382,12 +380,12 @@ } -- set up a finaliser - void $ mkWeakIORef alive $ modifyMVar_ unnecessaryPreparedStatemtnts $ pure . (preparedStatement:) + void $ mkWeakIORef alive $ modifyMVar_ unnecessaryPreparedStatements $ pure . (preparedStatement:) pure statement clone hc@Connection { config } = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc connect config hdbcDriverName _ = "postgresql" @@ -408,7 +406,7 @@ getTables hc@Connection { connection = connection@Pure.Connection { parameters }, config = Config { encodeString, decodeString } } = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc charCode <- lookupClientEncoding parameters let encode = encodeString charCode @@ -421,7 +419,7 @@ describeTable hc@Connection { connection = connection@Pure.Connection { parameters }, config = Config { encodeString, decodeString } } tableName = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc charCode <- lookupClientEncoding parameters let encode = encodeString charCode @@ -451,7 +449,7 @@ begin :: Connection -> IO () begin hc@Connection { connection } = convertException $ do - closeUnnecessaryPreparedStatemtnts hc + closeUnnecessaryPreparedStatements hc void $ Pure.sync connection Pure.begin columnSize :: Pure.Oid -> Pure.TypeLength -> Pure.TypeModifier -> (Maybe Int, Maybe Int) @@ -471,9 +469,9 @@ writeIORef ref (n + 1) pure n -closeUnnecessaryPreparedStatemtnts :: Connection -> IO () -closeUnnecessaryPreparedStatemtnts Connection { connection, unnecessaryPreparedStatemtnts } = - modifyMVar_ unnecessaryPreparedStatemtnts $ \pss -> do +closeUnnecessaryPreparedStatements :: Connection -> IO () +closeUnnecessaryPreparedStatements Connection { connection, unnecessaryPreparedStatements } = + modifyMVar_ unnecessaryPreparedStatements $ \pss -> do unless (null pss) $ void $ Pure.sync connection $ Pure.close <$> pss pure [] @@ -488,7 +486,7 @@ instance Exception RequestBuildingFailed where toException = toException . Pure.Exception - fromException = ((\(Pure.Exception e) -> cast e) =<<) . fromException + fromException = (\(Pure.Exception e) -> cast e) <=< fromException instance Pure.FromField SqlValue where fromField _ _ Nothing = pure SqlNull diff --git a/src/Database/PostgreSQL/Pure.hs b/src/Database/PostgreSQL/Pure.hs --- a/src/Database/PostgreSQL/Pure.hs +++ b/src/Database/PostgreSQL/Pure.hs @@ -10,7 +10,6 @@ {-# LANGUAGE InstanceSigs #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-} @@ -139,6 +138,8 @@ , ToField (..) , ToRecord (..) , Raw (..) + , SqlIdentifier (..) + , TimeOfDayWithTimeZone (..) , Length -- * Exception , Exception.Exception (..) @@ -159,9 +160,11 @@ FromField (fromField), FromRecord (fromRecord), MessageResult, Oid, Pid, PortalName (PortalName), PreparedStatementName (PreparedStatementName), - Query (Query), Raw (Null, Value), StringDecoder, - StringEncoder, ToField (toField), ToRecord (toRecord), - TransactionState) + Query (Query), Raw (Null, Value), + SqlIdentifier (SqlIdentifier), StringDecoder, + StringEncoder, + TimeOfDayWithTimeZone (TimeOfDayWithTimeZone, timeOfDay, timeZone), + ToField (toField), ToRecord (toRecord), TransactionState) import qualified Database.PostgreSQL.Pure.Internal.Data as Data import qualified Database.PostgreSQL.Pure.Internal.Exception as Exception import Database.PostgreSQL.Pure.Internal.Length (Length) @@ -171,7 +174,7 @@ import Data.Bifunctor (bimap) import Data.Kind (Type) import Data.Proxy (Proxy (Proxy)) -import Data.Tuple.Homotuple (Homotuple, IsHomolisttuple, IsHomotupleItem) +import Data.Tuple.Homotuple (Homotuple) import qualified Data.Tuple.List as Tuple import GHC.Exts (IsList (Item, fromList, toList)) import GHC.Records (HasField (getField)) @@ -196,7 +199,7 @@ getField (PreparedStatement Data.PreparedStatement { parameterOids }) = fromList parameterOids -- | To get a list of column infos of the result record. -resultInfos :: (IsHomolisttuple m ColumnInfo, IsHomotupleItem m ColumnInfo) => PreparedStatement n m -> Homotuple m ColumnInfo +resultInfos :: (IsList (Homotuple m ColumnInfo), ColumnInfo ~ Item (Homotuple m ColumnInfo)) => PreparedStatement n m -> Homotuple m ColumnInfo resultInfos (PreparedStatement Data.PreparedStatement { resultInfos }) = fromList resultInfos -- | This represents a prepared statement which is not yet processed by a server. @@ -250,7 +253,7 @@ type instance MessageResult (ExecutedProcedure n m r) = (PreparedStatement n m, Portal n m, Executed n m r, Maybe ErrorFields) -- TODO don't error fields themselves --- | This means that @r@ has a 'name' accesser. +-- | This means that @r@ has a 'name' accessor. class HasName r where -- | Type of name of @r@. type Name r :: Type @@ -272,7 +275,7 @@ instance HasName (PortalProcedure n m) where type Name (PortalProcedure n m) = PortalName --- | This means that @r@ has a 'parameterOids' accesser. +-- | This means that @r@ has a 'parameterOids' accessor. class HasParameterOids r a where -- | To get OIDs of a parameter. parameterOids :: r -> a @@ -290,16 +293,16 @@ :: forall plen rlen. ( KnownNat plen , KnownNat rlen - , IsHomotupleItem plen Oid - , IsHomotupleItem rlen ColumnInfo - , IsHomotupleItem rlen Oid - , IsHomolisttuple rlen Oid - , IsHomolisttuple plen Oid - , IsHomolisttuple rlen ColumnInfo + , Item (Homotuple plen Oid) ~ Oid + , Item (Homotuple rlen ColumnInfo) ~ ColumnInfo + , Item (Homotuple rlen Oid) ~ Oid + , IsList (Homotuple rlen Oid) + , IsList (Homotuple plen Oid) + , IsList (Homotuple rlen ColumnInfo) ) => PreparedStatementName -- ^ A new name of prepared statement. - -> Query -- ^ SQL whose placeoholder style is dollar style. - -> Maybe (Homotuple plen Oid, Homotuple rlen Oid) -- ^ On 'Nothing' an additional pair of a request and a resposne is necessary. + -> Query -- ^ SQL whose placeholder style is dollar style. + -> Maybe (Homotuple plen Oid, Homotuple rlen Oid) -- ^ On 'Nothing' an additional pair of a request and a response is necessary. -- If concrete OIDs are given, it will be pass over. -> PreparedStatementProcedure plen rlen parse name query oids = @@ -356,8 +359,8 @@ execute :: forall plen result. ( FromRecord result - , IsHomotupleItem (Length result) ColumnInfo - , IsHomolisttuple (Length result) ColumnInfo + , ColumnInfo ~ Item (Homotuple (Length result) ColumnInfo) + , IsList (Homotuple (Length result) ColumnInfo) ) => Word -- ^ How many records to get. "0" means unlimited. -> StringDecoder -- ^ How to decode strings. diff --git a/src/Database/PostgreSQL/Pure/Internal/Builder.hs b/src/Database/PostgreSQL/Pure/Internal/Builder.hs deleted file mode 100644 --- a/src/Database/PostgreSQL/Pure/Internal/Builder.hs +++ /dev/null @@ -1,1123 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE TupleSections #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE TypeSynonymInstances #-} -{-# LANGUAGE UndecidableInstances #-} - -{-# OPTIONS_GHC -Wno-orphans #-} - -#include "MachDeps.h" - -module Database.PostgreSQL.Pure.Internal.Builder - ( startup - , password - , terminate - , query - , parse - , bind - , execute - , describePreparedStatement - , describePortal - , flush - , sync - , closePreparedStatement - , closePortal - ) where - -import Database.PostgreSQL.Pure.Internal.Data (BindParameterFormatCodes (BindParameterFormatCodesAll, BindParameterFormatCodesAllDefault, BindParameterFormatCodesEach), - BindResultFormatCodes (BindResultFormatCodesAllDefault, BindResultFormatCodesEach, BindResultFormatCodesNothing), - FormatCode (BinaryFormat, TextFormat), - GToRecord (gToRecord), Oid (Oid), - PortalName (PortalName), - PreparedStatementName (PreparedStatementName), - Query (Query), - TimeOfDayWithTimeZone (TimeOfDayWithTimeZone), - ToField (toField), ToRecord (toRecord)) -import Database.PostgreSQL.Pure.Internal.Exception (cantReachHere) -import qualified Database.PostgreSQL.Pure.Internal.MonadFail as MonadFail -import qualified Database.PostgreSQL.Pure.Oid as Oid -import qualified Database.PostgreSQL.Simple.Time.Internal.Printer as Time - -import Control.Exception.Safe (assert) -import qualified Data.Bool as B -import qualified Data.ByteString as BS -import qualified Data.ByteString.Builder as BSB -import qualified Data.ByteString.Builder.Prim as BSBP -import qualified Data.ByteString.Lazy as BSL -import qualified Data.Double.Conversion.ByteString as DC -import Data.Fixed (Fixed (MkFixed), HasResolution, Pico, resolution) -import Data.Int (Int16, Int32, Int64) -import qualified Data.Map.Strict as M -import Data.Scientific (FPFormat (Exponent), Scientific, formatScientific, - scientific) -import Data.Time (Day, DiffTime, NominalDiffTime, TimeOfDay, UTCTime) -import Data.Time.LocalTime (LocalTime) -import Data.Tuple.Single (Single, pattern Single) -import qualified GHC.Generics as Generics -import qualified PostgreSQL.Binary.Encoding as BE - -startup - :: String -- ^ user name. ASCII text. - -> String -- ^ database name. ASCII text. - -> BSB.Builder -startup user database = - let - len = - 4 -- length field - + 2 -- protocol major version - + 2 -- protocol minor version - + 5 -- "user\0" - + length user - + 1 -- '\0' - + 9 -- "database\0" - + length database - + 1 -- '\0' - + 1 -- '\0' - in - BSB.int32BE (fromIntegral len) - <> BSB.int16BE 3 -- protocol major version - <> BSB.int16BE 0 -- protocol minor version - <> BSB.string7 "user\0" - <> BSB.string7 user - <> BSB.char7 '\0' - <> BSB.string7 "database\0" <> BSB.string7 database <> BSB.char7 '\0' - <> BSB.char7 '\0' - -password - :: BS.ByteString -- ^ password, which may be hashed. ASCII text. - -> BSB.Builder -password password = - let - len = 4 + BS.length password + 1 - in - BSB.char7 'p' - <> BSB.int32BE (fromIntegral len) - <> BSB.byteString password - <> BSB.char7 '\0' - -query :: Query -> BSB.Builder -query (Query q) = - let - len = 4 + BS.length q + 1 - in - BSB.char7 'Q' - <> BSB.int32BE (fromIntegral len) - <> BSB.byteString q - <> BSB.char7 '\0' - -terminate :: BS.ByteString -terminate = BS.pack [0x58, 0, 0, 0, 4] - -parse - :: PreparedStatementName - -> Query - -> [Oid] -- ^ OIDs of data types of parameters - -> BSB.Builder -parse (PreparedStatementName name) (Query q) oids = - let - len = 4 + BS.length name + 1 + BS.length q + 1 + 2 + noids * 4 - noids = length oids - in - BSB.char7 'P' - <> BSB.int32BE (fromIntegral len) - <> BSB.byteString name - <> BSB.char7 '\0' - <> BSB.byteString q - <> BSB.char7 '\0' - <> BSB.int16BE (fromIntegral noids) - <> mconcat (BSB.int32BE . (\(Oid n) -> n) <$> oids) - -bind - :: PortalName - -> PreparedStatementName - -> BindParameterFormatCodes - -> [Maybe BS.ByteString] - -> BindResultFormatCodes - -> BSB.Builder -bind (PortalName portalName) (PreparedStatementName preparedStatementName) parameterFormatCodes parameters resultFormatCodes = - let - len = - 4 -- length field - + BS.length portalName - + 1 -- '\0' - + BS.length preparedStatementName - + 1 -- '\0' - + 2 -- the number of parameter format codes - + ( case parameterFormatCodes of -- format codes - BindParameterFormatCodesAllDefault -> 0 - BindParameterFormatCodesAll _ -> 2 - BindParameterFormatCodesEach cs -> 2 * length cs - ) - + 2 -- the number of parameters - + 4 * length parameters -- length field of each parameters - + sum ((\p -> case p of Just bs -> BS.length bs; Nothing -> 0) <$> parameters) -- parameters themselves - + 2 -- the number of result format codes - + ( case resultFormatCodes of -- format codes - BindResultFormatCodesNothing -> 0 - BindResultFormatCodesAllDefault -> 0 - BindResultFormatCodesEach cs -> 2 * length cs - ) - in - BSB.char7 'B' - <> BSB.int32BE (fromIntegral len) - <> BSB.byteString portalName - <> BSB.char7 '\0' - <> BSB.byteString preparedStatementName - <> BSB.char7 '\0' - <> ( case parameterFormatCodes of - BindParameterFormatCodesAllDefault -> BSB.int16BE 0 - BindParameterFormatCodesAll c -> BSB.int16BE 1 <> BSB.int16BE (fromIntegral $ fromEnum c) - BindParameterFormatCodesEach cs -> BSB.int16BE (fromIntegral $ length cs) <> mconcat (BSB.int16BE . fromIntegral . fromEnum <$> cs) - ) - <> BSB.int16BE (fromIntegral $ length parameters) - <> mconcat - ( ( \p -> - case p of - Just bs -> BSB.int32BE (fromIntegral $ BS.length bs) <> BSB.byteString bs - Nothing -> BSB.int32BE (-1) - ) <$> parameters - ) - <> ( case resultFormatCodes of - BindResultFormatCodesNothing -> BSB.int16BE 0 - BindResultFormatCodesAllDefault -> BSB.int16BE 1 - BindResultFormatCodesEach cs -> BSB.int16BE (fromIntegral $ length cs) <> mconcat (BSB.int16BE . fromIntegral . fromEnum <$> cs) - ) - -execute - :: PortalName - -> Int -- ^ limit of the number of rows - -> BSB.Builder -execute (PortalName name) limitRows = - let - len = 4 + BS.length name + 1 + 4 - in - BSB.char7 'E' - <> BSB.int32BE (fromIntegral len) - <> BSB.byteString name - <> BSB.char7 '\0' - <> BSB.int32BE (fromIntegral limitRows) - -flush :: BS.ByteString -flush = BS.pack [0x48, 0, 0, 0, 4] - -sync :: BS.ByteString -sync = BS.pack [0x53, 0, 0, 0, 4] - -describePreparedStatement :: PreparedStatementName -> BSB.Builder -describePreparedStatement (PreparedStatementName name) = doDescribe 'S' name - -closePreparedStatement :: PreparedStatementName -> BSB.Builder -closePreparedStatement (PreparedStatementName name) = doClose 'S' name - -describePortal :: PortalName -> BSB.Builder -describePortal (PortalName name) = doDescribe 'P' name - -closePortal :: PortalName -> BSB.Builder -closePortal (PortalName name) = doClose 'P' name - -doDescribe :: Char -> BS.ByteString -> BSB.Builder -doDescribe typ name = - let - len = 4 + 1 + BS.length name + 1 - in - BSB.char7 'D' - <> BSB.int32BE (fromIntegral len) - <> BSB.char7 typ - <> BSB.byteString name - <> BSB.char7 '\0' - -doClose :: Char -> BS.ByteString -> BSB.Builder -doClose typ name = - let - len = 4 + 1 + BS.length name + 1 - in - BSB.char7 'C' - <> BSB.int32BE (fromIntegral len) - <> BSB.char7 typ - <> BSB.byteString name - <> BSB.char7 '\0' - -instance ToField () where - toField _ _ _ _ _ = fail "no values for units" - -instance ToField Bool where - toField _ _ Nothing TextFormat = pure . Just . B.bool "TRUE" "FALSE" - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.bool - toField backendParams encode (Just o) f | o == Oid.bool = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Bool" - -instance ToField Int where -#if WORD_SIZE_IN_BITS > 64 - toField _ _ _ _ _ = fail "the Int's size is too large, larger then 64 bits" -#else - toField _ _ Nothing TextFormat = pure . Just. BSL.toStrict . BSB.toLazyByteString . BSB.intDec -#if WORD_SIZE_IN_BITS > 32 - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int8_int64 . fromIntegral - toField backendParams encode (Just o) TextFormat | o == Oid.int8 = toField backendParams encode Nothing TextFormat - toField backendParams encode (Just o) BinaryFormat | o == Oid.int8 = toField backendParams encode Nothing BinaryFormat -#else /* the width of Int is wider than 30 bits */ - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int4_int32 . fromIntegral - toField backendParams encode (Just o) TextFormat | o `elem` [Oid.int4, Oid.int8] = toField backendParams encode Nothing TextFormat - toField backendParams encode (Just o) BinaryFormat | o == Oid.int4 = toField backendParams encode Nothing BinaryFormat - | o == Oid.int8 = pure . Just . BE.encodingBytes . BE.int8_int64 . fromIntegral -#endif - toField _ _ (Just o) _ = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Int" -#endif - -instance ToField Int16 where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSB.int16Dec - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int2_int16 - toField backendParams encode (Just o) f | o == Oid.int2 = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Int16" - -instance ToField Int32 where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSB.int32Dec - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int4_int32 - toField backendParams encode (Just o) TextFormat | o `elem` [Oid.int4, Oid.int8] = toField backendParams encode Nothing TextFormat - toField backendParams encode (Just o) BinaryFormat | o == Oid.int4 = toField backendParams encode Nothing BinaryFormat - | o == Oid.int8 = pure . Just . BE.encodingBytes . BE.int8_int64 . fromIntegral - toField _ _ (Just o) _ = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Int32" - -instance ToField Int64 where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSB.int64Dec - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int8_int64 - toField backendParams encode (Just o) f | o == Oid.int8 = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Int64" - -instance ToField Float where - toField _ _ Nothing TextFormat = pure . Just . DC.toShortest . realToFrac - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.float4 - toField backendParams encode (Just o) TextFormat | o `elem` [Oid.float4, Oid.float8] = toField backendParams encode Nothing TextFormat - toField backendParams encode (Just o) BinaryFormat | o == Oid.float4 = toField backendParams encode Nothing BinaryFormat - | o == Oid.float8 = pure . Just . BE.encodingBytes . BE.float8 . realToFrac - toField _ _ (Just o) _ = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Float" - -instance ToField Double where - toField _ _ Nothing TextFormat = pure . Just . DC.toShortest - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.float8 - toField backendParams encode (Just o) f | o == Oid.float8 = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Double" - -instance ToField Scientific where - toField _ encode Nothing TextFormat = (Just <$>) . MonadFail.fromEither . encode . formatScientific Exponent Nothing - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.numeric - toField backendParams encode (Just o) f | o == Oid.numeric = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Scientific" - -instance HasResolution a => ToField (Fixed a) where - toField _ encode Nothing TextFormat v = Just <$> MonadFail.fromEither (encode (show v)) -- XXX maybe slow - toField _ _ Nothing BinaryFormat v@(MkFixed i) = pure $ Just $ BE.encodingBytes $ BE.numeric $ scientific i (fromInteger $ resolution v) - toField backendParams encode (Just o) f v | o == Oid.numeric = toField backendParams encode Nothing f v - | otherwise = fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Fixed a (" <> show (resolution v) <> ")" - -instance ToField Char where - toField _ encode Nothing _ v = Just <$> MonadFail.fromEither (encode [v]) - toField backendParams encode (Just o) f v | o == Oid.char = toField backendParams encode Nothing f v - | otherwise = fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Char" - -instance ToField String where - toField _ encode Nothing _ = (Just <$>) . MonadFail.fromEither . encode - toField backendParams encode (Just _) TextFormat = toField backendParams encode Nothing TextFormat - toField backendParams encode (Just o) BinaryFormat | o `elem` [Oid.text, Oid.bpchar, Oid.varchar, Oid.name] = toField backendParams encode Nothing BinaryFormat - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: String" - -instance ToField BS.ByteString where - toField _ _ Nothing _ = pure . Just - toField backendParams encode (Just o) f | o `elem` [Oid.text, Oid.bpchar, Oid.varchar, Oid.name, Oid.bytea] = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: ByteString (strict)" - -instance ToField Day where -- TODO infinity/-infinity - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSBP.primBounded Time.day - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.date - toField backendParams encode (Just o) f | o == Oid.date = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Day" - -instance ToField TimeOfDay where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSBP.primBounded Time.timeOfDay - toField backendParams _ Nothing BinaryFormat = - case M.lookup "integer_datetimes" backendParams of - Nothing -> const $ fail "not found \"integer_datetimes\" backend parameter" - Just "on" -> pure . Just . BE.encodingBytes . BE.time_int - Just "off" -> pure . Just . BE.encodingBytes . BE.time_float - Just v -> const $ fail $ "\"integer_datetimes\" has unrecognized value: " <> show v - toField backendParams encode (Just o) f | o == Oid.time = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: TimeOfDay" - -instance ToField TimeOfDayWithTimeZone where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSBP.primBounded (go BSBP.>$< Time.timeOfDay BSBP.>*< Time.timeZone) - where go (TimeOfDayWithTimeZone t tz) = (t, tz) - toField backendParams _ Nothing BinaryFormat = - case M.lookup "integer_datetimes" backendParams of - Nothing -> const $ fail "not found \"integer_datetimes\" backend parameter" - Just "on" -> pure . Just . BE.encodingBytes . BE.timetz_int . \(TimeOfDayWithTimeZone t tz) -> (t, tz) - Just "off" -> pure . Just . BE.encodingBytes . BE.timetz_float . \(TimeOfDayWithTimeZone t tz) -> (t, tz) - Just v -> const $ fail $ "\"integer_datetimes\" has unrecognized value: " <> show v - toField backendParams encode (Just o) f | o == Oid.timetz = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: TimeOfDayWithTimeZone)" - -instance ToField LocalTime where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSBP.primBounded Time.localTime - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.timestamp_int - toField backendParams encode (Just o) f | o == Oid.timestamp = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: LocalTime" - -instance ToField UTCTime where - toField _ _ Nothing TextFormat = pure . Just . BSL.toStrict . BSB.toLazyByteString . BSBP.primBounded Time.utcTime - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.timestamptz_int - toField backendParams encode (Just o) f | o == Oid.timestamptz = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: UTCTime" - -instance ToField DiffTime where - toField _ encode Nothing TextFormat = (Just <$>) . MonadFail.fromEither . encode . show -- XXX maybe slow - toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.interval_int - toField backendParams encode (Just o) f | o == Oid.interval = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: DiffTime" - -instance ToField NominalDiffTime where - toField backendParams encode Nothing f = toField backendParams encode Nothing f . (realToFrac :: NominalDiffTime -> Pico) - toField backendParams encode (Just o) f | o == Oid.numeric = toField backendParams encode Nothing f - | otherwise = const $ fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: NominalDiffTime" - -instance ToField Oid where - toField _ _ Nothing TextFormat (Oid v) = pure $ Just $ BSL.toStrict $ BSB.toLazyByteString $ BSB.int32Dec v - toField _ _ Nothing BinaryFormat (Oid v) = pure $ Just $ BE.encodingBytes $ BE.int4_int32 v - toField backendParams encode (Just o) f v | o == Oid.oid = toField backendParams encode Nothing f v - | otherwise = fail $ "type mismatch (ToField): OID: " <> show o <> ", Haskell: Oid" - -instance ToField a => ToField (Maybe a) where - toField backendParams encode oid f (Just v) = toField backendParams encode oid f v - toField _ _ _ _ Nothing = pure $ Just $ BE.encodingBytes $ BE.int4_int32 (-1) - --- 0 tuple -instance ToRecord () where - toRecord _ _ Nothing [] _ = - pure [] - toRecord _ _ Nothing fs _ = - fail $ "the number of format codes must be 0, actually " <> show (length fs) - toRecord _ _ (Just []) [] _ = - pure [] - toRecord _ _ (Just os) [] _ = - fail $ "the number of OIDs must be 0, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 0, actually " <> show (length fs) - --- 1 tuple -instance - {-# OVERLAPPABLE #-} - (ToField a, Single c, t ~ c a) - => ToRecord t where - toRecord backendParams encode Nothing [f] (Single v) = - sequence [toField backendParams encode Nothing f v] - toRecord _ _ Nothing [_] _ = - cantReachHere - toRecord backendParams encode (Just [o]) [f] (Single v) = - sequence [toField backendParams encode (Just o) f v] - toRecord _ _ (Just os) [_] _ = - fail $ "the number of OIDs must be 1, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 1, actually " <> show (length fs) - --- 2-tuple -instance (ToField i0, ToField i1) => ToRecord (i0, i1) where - toRecord backendParams encode Nothing [f0, f1] (v0, v1) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1] - toRecord backendParams encode (Just [o0, o1]) [f0, f1] (v0, v1) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 2, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 2, actually " <> show (length fs) - --- 3-tuple -instance (ToField i0, ToField i1, ToField i2) => ToRecord (i0, i1, i2) where - toRecord backendParams encode Nothing [f0, f1, f2] (v0, v1, v2) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2] - toRecord backendParams encode (Just [o0, o1, o2]) [f0, f1, f2] (v0, v1, v2) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 3, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 3, actually " <> show (length fs) - --- 4-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3) => ToRecord (i0, i1, i2, i3) where - toRecord backendParams encode Nothing [f0, f1, f2, f3] (v0, v1, v2, v3) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3] - toRecord backendParams encode (Just [o0, o1, o2, o3]) [f0, f1, f2, f3] (v0, v1, v2, v3) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 4, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 4, actually " <> show (length fs) - --- 5-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4) => ToRecord (i0, i1, i2, i3, i4) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4] (v0, v1, v2, v3, v4) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4]) [f0, f1, f2, f3, f4] (v0, v1, v2, v3, v4) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 5, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 5, actually " <> show (length fs) - --- 6-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5) => ToRecord (i0, i1, i2, i3, i4, i5) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5] (v0, v1, v2, v3, v4, v5) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5]) [f0, f1, f2, f3, f4, f5] (v0, v1, v2, v3, v4, v5) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 6, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 6, actually " <> show (length fs) - --- 7-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6) => ToRecord (i0, i1, i2, i3, i4, i5, i6) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6] (v0, v1, v2, v3, v4, v5, v6) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6]) [f0, f1, f2, f3, f4, f5, f6] (v0, v1, v2, v3, v4, v5, v6) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 7, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 7, actually " <> show (length fs) - --- 8-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7] (v0, v1, v2, v3, v4, v5, v6, v7) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7]) [f0, f1, f2, f3, f4, f5, f6, f7] (v0, v1, v2, v3, v4, v5, v6, v7) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 8, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 8, actually " <> show (length fs) - --- 9-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8] (v0, v1, v2, v3, v4, v5, v6, v7, v8) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8]) [f0, f1, f2, f3, f4, f5, f6, f7, f8] (v0, v1, v2, v3, v4, v5, v6, v7, v8) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 9, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 9, actually " <> show (length fs) - --- 10-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 10, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 10, actually " <> show (length fs) - --- 11-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 11, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 11, actually " <> show (length fs) - --- 12-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 12, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 12, actually " <> show (length fs) - --- 13-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 13, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 13, actually " <> show (length fs) - --- 14-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 14, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 14, actually " <> show (length fs) - --- 15-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 15, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 15, actually " <> show (length fs) - --- 16-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 16, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 16, actually " <> show (length fs) - --- 17-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 17, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 17, actually " <> show (length fs) - --- 18-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 18, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 18, actually " <> show (length fs) - --- 19-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 19, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 19, actually " <> show (length fs) - --- 20-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 20, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 20, actually " <> show (length fs) - --- 21-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 21, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 21, actually " <> show (length fs) - --- 22-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 22, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 22, actually " <> show (length fs) - --- 23-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 23, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 23, actually " <> show (length fs) - --- 24-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 24, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 24, actually " <> show (length fs) - --- 25-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 25, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 25, actually " <> show (length fs) - --- 26-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 26, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 26, actually " <> show (length fs) - --- 27-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 27, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 27, actually " <> show (length fs) - --- 28-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 28, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 28, actually " <> show (length fs) - --- 29-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 29, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 29, actually " <> show (length fs) - --- 30-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 30, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 30, actually " <> show (length fs) - --- 31-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 31, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 31, actually " <> show (length fs) - --- 32-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 32, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 32, actually " <> show (length fs) - --- 33-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 33, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 33, actually " <> show (length fs) - --- 34-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 34, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 34, actually " <> show (length fs) - --- 35-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 35, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 35, actually " <> show (length fs) - --- 36-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 36, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 36, actually " <> show (length fs) - --- 37-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 37, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 37, actually " <> show (length fs) - --- 38-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 38, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 38, actually " <> show (length fs) - --- 39-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 39, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 39, actually " <> show (length fs) - --- 40-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 40, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 40, actually " <> show (length fs) - --- 41-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 41, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 41, actually " <> show (length fs) - --- 42-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 42, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 42, actually " <> show (length fs) - --- 43-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 43, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 43, actually " <> show (length fs) - --- 44-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 44, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 44, actually " <> show (length fs) - --- 45-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 45, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 45, actually " <> show (length fs) - --- 46-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 46, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 46, actually " <> show (length fs) - --- 47-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 47, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 47, actually " <> show (length fs) - --- 48-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 48, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 48, actually " <> show (length fs) - --- 49-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 49, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 49, actually " <> show (length fs) - --- 50-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 50, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 50, actually " <> show (length fs) - --- 51-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 51, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 51, actually " <> show (length fs) - --- 52-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 52, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 52, actually " <> show (length fs) - --- 53-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 53, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 53, actually " <> show (length fs) - --- 54-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 54, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 54, actually " <> show (length fs) - --- 55-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 55, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 55, actually " <> show (length fs) - --- 56-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 56, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 56, actually " <> show (length fs) - --- 57-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 57, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 57, actually " <> show (length fs) - --- 58-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56, toField backendParams encode Nothing f57 v57] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56, o57]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56, toField backendParams encode (Just o57) f57 v57] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 58, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 58, actually " <> show (length fs) - --- 59-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56, toField backendParams encode Nothing f57 v57, toField backendParams encode Nothing f58 v58] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56, o57, o58]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56, toField backendParams encode (Just o57) f57 v57, toField backendParams encode (Just o58) f58 v58] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 59, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 59, actually " <> show (length fs) - --- 60-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56, toField backendParams encode Nothing f57 v57, toField backendParams encode Nothing f58 v58, toField backendParams encode Nothing f59 v59] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56, o57, o58, o59]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56, toField backendParams encode (Just o57) f57 v57, toField backendParams encode (Just o58) f58 v58, toField backendParams encode (Just o59) f59 v59] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 60, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 60, actually " <> show (length fs) - --- 61-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59, ToField i60) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59, f60] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59, v60) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56, toField backendParams encode Nothing f57 v57, toField backendParams encode Nothing f58 v58, toField backendParams encode Nothing f59 v59, toField backendParams encode Nothing f60 v60] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56, o57, o58, o59, o60]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59, f60] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59, v60) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56, toField backendParams encode (Just o57) f57 v57, toField backendParams encode (Just o58) f58 v58, toField backendParams encode (Just o59) f59 v59, toField backendParams encode (Just o60) f60 v60] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 61, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 61, actually " <> show (length fs) - --- 62-tuple -instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59, ToField i60, ToField i61) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60, i61) where - toRecord backendParams encode Nothing [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59, f60, f61] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59, v60, v61) = - sequence [toField backendParams encode Nothing f0 v0, toField backendParams encode Nothing f1 v1, toField backendParams encode Nothing f2 v2, toField backendParams encode Nothing f3 v3, toField backendParams encode Nothing f4 v4, toField backendParams encode Nothing f5 v5, toField backendParams encode Nothing f6 v6, toField backendParams encode Nothing f7 v7, toField backendParams encode Nothing f8 v8, toField backendParams encode Nothing f9 v9, toField backendParams encode Nothing f10 v10, toField backendParams encode Nothing f11 v11, toField backendParams encode Nothing f12 v12, toField backendParams encode Nothing f13 v13, toField backendParams encode Nothing f14 v14, toField backendParams encode Nothing f15 v15, toField backendParams encode Nothing f16 v16, toField backendParams encode Nothing f17 v17, toField backendParams encode Nothing f18 v18, toField backendParams encode Nothing f19 v19, toField backendParams encode Nothing f20 v20, toField backendParams encode Nothing f21 v21, toField backendParams encode Nothing f22 v22, toField backendParams encode Nothing f23 v23, toField backendParams encode Nothing f24 v24, toField backendParams encode Nothing f25 v25, toField backendParams encode Nothing f26 v26, toField backendParams encode Nothing f27 v27, toField backendParams encode Nothing f28 v28, toField backendParams encode Nothing f29 v29, toField backendParams encode Nothing f30 v30, toField backendParams encode Nothing f31 v31, toField backendParams encode Nothing f32 v32, toField backendParams encode Nothing f33 v33, toField backendParams encode Nothing f34 v34, toField backendParams encode Nothing f35 v35, toField backendParams encode Nothing f36 v36, toField backendParams encode Nothing f37 v37, toField backendParams encode Nothing f38 v38, toField backendParams encode Nothing f39 v39, toField backendParams encode Nothing f40 v40, toField backendParams encode Nothing f41 v41, toField backendParams encode Nothing f42 v42, toField backendParams encode Nothing f43 v43, toField backendParams encode Nothing f44 v44, toField backendParams encode Nothing f45 v45, toField backendParams encode Nothing f46 v46, toField backendParams encode Nothing f47 v47, toField backendParams encode Nothing f48 v48, toField backendParams encode Nothing f49 v49, toField backendParams encode Nothing f50 v50, toField backendParams encode Nothing f51 v51, toField backendParams encode Nothing f52 v52, toField backendParams encode Nothing f53 v53, toField backendParams encode Nothing f54 v54, toField backendParams encode Nothing f55 v55, toField backendParams encode Nothing f56 v56, toField backendParams encode Nothing f57 v57, toField backendParams encode Nothing f58 v58, toField backendParams encode Nothing f59 v59, toField backendParams encode Nothing f60 v60, toField backendParams encode Nothing f61 v61] - toRecord backendParams encode (Just [o0, o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11, o12, o13, o14, o15, o16, o17, o18, o19, o20, o21, o22, o23, o24, o25, o26, o27, o28, o29, o30, o31, o32, o33, o34, o35, o36, o37, o38, o39, o40, o41, o42, o43, o44, o45, o46, o47, o48, o49, o50, o51, o52, o53, o54, o55, o56, o57, o58, o59, o60, o61]) [f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f41, f42, f43, f44, f45, f46, f47, f48, f49, f50, f51, f52, f53, f54, f55, f56, f57, f58, f59, f60, f61] (v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21, v22, v23, v24, v25, v26, v27, v28, v29, v30, v31, v32, v33, v34, v35, v36, v37, v38, v39, v40, v41, v42, v43, v44, v45, v46, v47, v48, v49, v50, v51, v52, v53, v54, v55, v56, v57, v58, v59, v60, v61) = - sequence [toField backendParams encode (Just o0) f0 v0, toField backendParams encode (Just o1) f1 v1, toField backendParams encode (Just o2) f2 v2, toField backendParams encode (Just o3) f3 v3, toField backendParams encode (Just o4) f4 v4, toField backendParams encode (Just o5) f5 v5, toField backendParams encode (Just o6) f6 v6, toField backendParams encode (Just o7) f7 v7, toField backendParams encode (Just o8) f8 v8, toField backendParams encode (Just o9) f9 v9, toField backendParams encode (Just o10) f10 v10, toField backendParams encode (Just o11) f11 v11, toField backendParams encode (Just o12) f12 v12, toField backendParams encode (Just o13) f13 v13, toField backendParams encode (Just o14) f14 v14, toField backendParams encode (Just o15) f15 v15, toField backendParams encode (Just o16) f16 v16, toField backendParams encode (Just o17) f17 v17, toField backendParams encode (Just o18) f18 v18, toField backendParams encode (Just o19) f19 v19, toField backendParams encode (Just o20) f20 v20, toField backendParams encode (Just o21) f21 v21, toField backendParams encode (Just o22) f22 v22, toField backendParams encode (Just o23) f23 v23, toField backendParams encode (Just o24) f24 v24, toField backendParams encode (Just o25) f25 v25, toField backendParams encode (Just o26) f26 v26, toField backendParams encode (Just o27) f27 v27, toField backendParams encode (Just o28) f28 v28, toField backendParams encode (Just o29) f29 v29, toField backendParams encode (Just o30) f30 v30, toField backendParams encode (Just o31) f31 v31, toField backendParams encode (Just o32) f32 v32, toField backendParams encode (Just o33) f33 v33, toField backendParams encode (Just o34) f34 v34, toField backendParams encode (Just o35) f35 v35, toField backendParams encode (Just o36) f36 v36, toField backendParams encode (Just o37) f37 v37, toField backendParams encode (Just o38) f38 v38, toField backendParams encode (Just o39) f39 v39, toField backendParams encode (Just o40) f40 v40, toField backendParams encode (Just o41) f41 v41, toField backendParams encode (Just o42) f42 v42, toField backendParams encode (Just o43) f43 v43, toField backendParams encode (Just o44) f44 v44, toField backendParams encode (Just o45) f45 v45, toField backendParams encode (Just o46) f46 v46, toField backendParams encode (Just o47) f47 v47, toField backendParams encode (Just o48) f48 v48, toField backendParams encode (Just o49) f49 v49, toField backendParams encode (Just o50) f50 v50, toField backendParams encode (Just o51) f51 v51, toField backendParams encode (Just o52) f52 v52, toField backendParams encode (Just o53) f53 v53, toField backendParams encode (Just o54) f54 v54, toField backendParams encode (Just o55) f55 v55, toField backendParams encode (Just o56) f56 v56, toField backendParams encode (Just o57) f57 v57, toField backendParams encode (Just o58) f58 v58, toField backendParams encode (Just o59) f59 v59, toField backendParams encode (Just o60) f60 v60, toField backendParams encode (Just o61) f61 v61] - toRecord _ _ (Just os) _ _ = - fail $ "the number of OIDs must be 62, actually " <> show (length os) - toRecord _ _ _ fs _ = - fail $ "the number of format codes must be 62, actually " <> show (length fs) - --- list -instance - {-# OVERLAPPING #-} - ToField a - => ToRecord [a] where - toRecord backendParams encode Nothing fs vs = - sequence $ uncurry (toField backendParams encode Nothing) <$> zip fs vs - toRecord backendParams encode (Just os) fs vs = - assert (length os == length fs && length fs == length vs) $ sequence $ uncurry3 (toField backendParams encode) <$> zip3 (Just <$> os) fs vs - --- generics -instance GToRecord f => GToRecord (Generics.M1 i t f) where - gToRecord backendParams encode os fs (Generics.M1 r) = gToRecord backendParams encode os fs r - -instance ToField c => GToRecord (Generics.K1 i c) where - gToRecord backendParams encode (Just (o:os)) (f:fs) (Generics.K1 v) = (, Just os, fs) . (:[]) <$> toField backendParams encode (Just o) f v - gToRecord backendParams encode Nothing (f:fs) (Generics.K1 v) = (, Nothing, fs) . (:[]) <$> toField backendParams encode Nothing f v - gToRecord _ _ (Just []) _ _ = fail "there are too few OIDs" - gToRecord _ _ _ [] _ = fail "there are too few format codes" - -instance (GToRecord f, GToRecord g) => GToRecord (f Generics.:*: g) where - gToRecord backendParams encode os fs (f Generics.:*: g) = do - (record, os', fs') <- gToRecord backendParams encode os fs f - (record', os'', fs'') <- gToRecord backendParams encode os' fs' g - pure (record ++ record', os'', fs'') - -uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d -uncurry3 f (a, b, c) = f a b c diff --git a/src/Database/PostgreSQL/Pure/Internal/Connection.hs b/src/Database/PostgreSQL/Pure/Internal/Connection.hs --- a/src/Database/PostgreSQL/Pure/Internal/Connection.hs +++ b/src/Database/PostgreSQL/Pure/Internal/Connection.hs @@ -1,6 +1,7 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PackageImports #-} -- for doctest module Database.PostgreSQL.Pure.Internal.Connection ( connect @@ -37,7 +38,7 @@ #ifdef PURE_MD5 import qualified Data.Digest.Pure.MD5 as MD5 #else -import qualified Crypto.Hash.MD5 as MD5 +import qualified "cryptohash-md5" Crypto.Hash.MD5 as MD5 #endif -- | Bracket function for a connection. diff --git a/src/Database/PostgreSQL/Pure/Internal/Data.hs b/src/Database/PostgreSQL/Pure/Internal/Data.hs --- a/src/Database/PostgreSQL/Pure/Internal/Data.hs +++ b/src/Database/PostgreSQL/Pure/Internal/Data.hs @@ -2,12 +2,11 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE DefaultSignatures #-} +{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE TypeFamilies #-} @@ -78,6 +77,7 @@ import Database.PostgreSQL.Pure.Oid (Oid (Oid)) import Control.Applicative ((<|>)) +import Control.DeepSeq (NFData) import qualified Data.Attoparsec.ByteString as AP import qualified Data.ByteString as BS import qualified Data.ByteString.Builder as BSB @@ -176,7 +176,7 @@ | Failed -- ^ Transaction failed. deriving (Show, Read, Eq, Enum) --- | Proccess ID +-- | Process ID type Pid = Int32 type BackendKey = Int32 @@ -234,7 +234,7 @@ | EmptyQueryResponse | NoDataResponse | ParameterDescriptionResponse ParameterDescription - | DebugResponse Debug -- XXX temporal implimentation + | DebugResponse Debug -- XXX temporal implementation data AuthenticationResponse = AuthenticationOkResponse @@ -264,7 +264,7 @@ newtype ParameterDescription = ParameterDescription [Oid] deriving (Show, Read, Eq) -newtype Debug = Debug BS.ByteString deriving (Show, Read, Eq) -- XXX temporal implimentation +newtype Debug = Debug BS.ByteString deriving (Show, Read, Eq) -- XXX temporal implementation -- | Result of a “Execute” message. data ExecuteResult @@ -329,7 +329,7 @@ -- | SQL query. -- --- This 'Data.String.fromString' counts only ASCII, becouse it is the same with 'BS.ByteString'. +-- This 'Data.String.fromString' counts only ASCII, because it is the same with 'BS.ByteString'. newtype Query = Query BS.ByteString deriving (Show, Read, Eq, Ord, IsString) -- | To convert a type which means that it is not processed by the server to a respective type which means that it is processed by the server. @@ -467,7 +467,7 @@ is -> fail $ "length mismatch: too many: actual: " <> show (length is) class GFromRecord f where - gFromRecord :: StringDecoder -> [ColumnInfo] -> AP.Parser ((f p), [ColumnInfo]) + gFromRecord :: StringDecoder -> [ColumnInfo] -> AP.Parser (f p, [ColumnInfo]) -- | This means that @a@ can be encoded to a field. class ToField a where @@ -499,7 +499,9 @@ -- | Type of PostgreSQL @sql_identifier@ type. newtype SqlIdentifier = SqlIdentifier BS.ByteString deriving (Show, Read, Eq) -data TimeOfDayWithTimeZone = TimeOfDayWithTimeZone { timeOfDay :: TimeOfDay, timeZone :: TimeZone } deriving (Show, Read, Eq, Ord) +data TimeOfDayWithTimeZone = TimeOfDayWithTimeZone { timeOfDay :: TimeOfDay, timeZone :: TimeZone } deriving (Show, Read, Eq, Ord, Generic) + +instance NFData TimeOfDayWithTimeZone class Pretty a where pretty :: a -> String diff --git a/src/Database/PostgreSQL/Pure/Internal/Exception.hs b/src/Database/PostgreSQL/Pure/Internal/Exception.hs --- a/src/Database/PostgreSQL/Pure/Internal/Exception.hs +++ b/src/Database/PostgreSQL/Pure/Internal/Exception.hs @@ -15,6 +15,7 @@ import Control.Exception.Safe (displayException, fromException, throw, toException, try) import qualified Control.Exception.Safe as E +import Control.Monad ((<=<)) import qualified Data.ByteString as BS import qualified Data.ByteString.Short as BSS import qualified Data.ByteString.UTF8 as BSU @@ -43,7 +44,7 @@ instance E.Exception ErrorResponse where toException = toException . Exception - fromException = ((\(Exception e) -> cast e) =<<) . fromException + fromException = (\(Exception e) -> cast e) <=< fromException displayException = pretty instance Pretty ErrorResponse where @@ -63,7 +64,7 @@ instance E.Exception ResponseParsingFailed where toException = toException . Exception - fromException = ((\(Exception e) -> cast e) =<<) . fromException + fromException = (\(Exception e) -> cast e) <=< fromException displayException = pretty instance Pretty ResponseParsingFailed where @@ -77,9 +78,9 @@ instance E.Exception InternalException -internalExcepionToExposedException :: InternalException -> Exception -internalExcepionToExposedException e@InternalResponseParsingFailed {} = Exception $ ResponseParsingFailed $ displayException e -internalExcepionToExposedException (InternalErrorResponse (ErrorFields fields) transactionState _) = +internalExceptionToExposedException :: InternalException -> Exception +internalExceptionToExposedException e@InternalResponseParsingFailed {} = Exception $ ResponseParsingFailed $ displayException e +internalExceptionToExposedException (InternalErrorResponse (ErrorFields fields) transactionState _) = Exception ErrorResponse { severity, code, message, transactionState } where (severity, code, message) = map3 BSS.fromShort $ foldr go ("", "", "") fields @@ -88,14 +89,14 @@ go ('M', largeM) (largeS, largeC, _) = (largeS, largeC, largeM) go _ a = a map3 f (v1, v2, v3) = (f v1, f v2, f v3) -internalExcepionToExposedException e@InternalExtraData {} = Exception $ ResponseParsingFailed $ displayException e +internalExceptionToExposedException e@InternalExtraData {} = Exception $ ResponseParsingFailed $ displayException e convert :: IO a -> IO a convert a = do r <- try a case r of Right r -> pure r - Left e -> throw $ internalExcepionToExposedException e + Left e -> throw $ internalExceptionToExposedException e cantReachHere :: HasCallStack => a cantReachHere = error "can't reach here" diff --git a/src/Database/PostgreSQL/Pure/Internal/Length.hs b/src/Database/PostgreSQL/Pure/Internal/Length.hs deleted file mode 100644 --- a/src/Database/PostgreSQL/Pure/Internal/Length.hs +++ /dev/null @@ -1,261 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DefaultSignatures #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE UndecidableInstances #-} - -module Database.PostgreSQL.Pure.Internal.Length - (Length) where - -import qualified Data.ByteString as BS -import Data.Functor.Identity (Identity) -import Data.Int (Int16, Int32, Int64) -import Data.Proxy (Proxy) -import Data.Scientific (Scientific) -import Data.Time (Day, DiffTime, LocalTime, TimeOfDay, UTCTime) -import Data.Tuple.OneTuple (OneTuple) -import Data.Tuple.Only (Only) -import Database.PostgreSQL.Pure.Internal.Data (Oid, Raw, SqlIdentifier, TimeOfDayWithTimeZone) -import GHC.TypeLits (Nat) - --- | The number of columns. -type family Length a :: Nat - -type instance Length Bool = 1 - -type instance Length Int = 1 - -type instance Length Int16 = 1 - -type instance Length Int32 = 1 - -type instance Length Int64 = 1 - -type instance Length Scientific = 1 - -type instance Length Float = 1 - -type instance Length Double = 1 - -type instance Length Oid = 1 - -type instance Length Char = 1 - -type instance Length String = 1 - -type instance Length BS.ByteString = 1 - -type instance Length Day = 1 - -type instance Length TimeOfDay = 1 - -type instance Length TimeOfDayWithTimeZone = 1 - -type instance Length LocalTime = 1 - -type instance Length UTCTime = 1 - -type instance Length DiffTime = 1 - -type instance Length SqlIdentifier = 1 - -type instance Length Raw = 1 - -type instance Length (Maybe a) = 1 - --- 0 tuple -type instance Length () = 0 - -type instance Length (Proxy a) = 0 - --- 1 tuple -type instance Length (Identity a) = 1 - -type instance Length (OneTuple a) = 1 - -type instance Length (Only a) = 1 - --- 2-tuple -type instance Length (i0, i1) = 2 - --- 3-tuple -type instance Length (i0, i1, i2) = 3 - --- 4-tuple -type instance Length (i0, i1, i2, i3) = 4 - --- 5-tuple -type instance Length (i0, i1, i2, i3, i4) = 5 - --- 6-tuple -type instance Length (i0, i1, i2, i3, i4, i5) = 6 - --- 7-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6) = 7 - --- 8-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7) = 8 - --- 9-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8) = 9 - --- 10-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9) = 10 - --- 11-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10) = 11 - --- 12-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11) = 12 - --- 13-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12) = 13 - --- 14-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13) = 14 - --- 15-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14) = 15 - --- 16-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15) = 16 - --- 17-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16) = 17 - --- 18-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17) = 18 - --- 19-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18) = 19 - --- 20-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19) = 20 - --- 21-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20) = 21 - --- 22-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21) = 22 - --- 23-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22) = 23 - --- 24-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23) = 24 - --- 25-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24) = 25 - --- 26-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25) = 26 - --- 27-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26) = 27 - --- 28-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27) = 28 - --- 29-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28) = 29 - --- 30-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29) = 30 - --- 31-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30) = 31 - --- 32-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31) = 32 - --- 33-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32) = 33 - --- 34-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33) = 34 - --- 35-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34) = 35 - --- 36-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35) = 36 - --- 37-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36) = 37 - --- 38-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37) = 38 - --- 39-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38) = 39 - --- 40-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39) = 40 - --- 41-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40) = 41 - --- 42-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41) = 42 - --- 43-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42) = 43 - --- 44-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43) = 44 - --- 45-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44) = 45 - --- 46-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45) = 46 - --- 47-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46) = 47 - --- 48-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47) = 48 - --- 49-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48) = 49 - --- 50-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49) = 50 - --- 51-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50) = 51 - --- 52-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51) = 52 - --- 53-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52) = 53 - --- 54-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53) = 54 - --- 55-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54) = 55 - --- 56-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55) = 56 - --- 57-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56) = 57 - --- 58-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57) = 58 - --- 59-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58) = 59 - --- 60-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59) = 60 - --- 61-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60) = 61 - --- 62-tuple -type instance Length (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60, i61) = 62 diff --git a/src/Database/PostgreSQL/Pure/Internal/Parser.hs b/src/Database/PostgreSQL/Pure/Internal/Parser.hs deleted file mode 100644 --- a/src/Database/PostgreSQL/Pure/Internal/Parser.hs +++ /dev/null @@ -1,1096 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TupleSections #-} -{-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE TypeSynonymInstances #-} -{-# LANGUAGE UndecidableInstances #-} - -{-# OPTIONS_GHC -Wno-missing-import-lists #-}-- for Prelude -{-# OPTIONS_GHC -Wno-orphans #-} - -#include "MachDeps.h" - -module Database.PostgreSQL.Pure.Internal.Parser - ( response - , authentication - , authenticationOk - , error - , notice - , parameterStatus - , backendKeyData - , readyForQuery - , rowDescription - , dataRow - , dataRowRaw - , commandComplete - , parseComplete - , bindComplete - , portalSuspended - , emptyQuery - , closeComplete - , noData - , parameterDescription - , skipUntilError - , currentPos - , column - , attoparsecParser - , valueParser - ) where - -import Database.PostgreSQL.Pure.Internal.Data (AuthenticationMD5Password (AuthenticationMD5Password), AuthenticationResponse (AuthenticationCleartextPasswordResponse, AuthenticationMD5PasswordResponse, AuthenticationOkResponse), - BackendKeyData (BackendKeyData), - ColumnInfo (ColumnInfo, typeOid), - CommandComplete (CommandComplete), - CommandTag (BeginTag, CommitTag, CopyTag, CreateTableTag, DeleteTag, DropTableTag, FetchTag, InsertTag, MoveTag, RollbackTag, SelectTag, SetTag, UpdateTag), - DataRow (DataRow), DataRowRaw (DataRowRaw), - Debug (Debug), Error (Error), - ErrorFields (ErrorFields), - FormatCode (BinaryFormat, TextFormat), - FromField (fromField), FromRecord (fromRecord), - GFromRecord (gFromRecord), Notice (Notice), Oid (Oid), - ParameterDescription (ParameterDescription), - ParameterStatus (ParameterStatus), Raw (Null, Value), - ReadyForQuery (ReadyForQuery), Response (..), - RowDescription (RowDescription), - SqlIdentifier (SqlIdentifier), StringDecoder, - TimeOfDayWithTimeZone (TimeOfDayWithTimeZone), - TransactionState (Block, Failed, Idle), - TypeLength (FixedLength, VariableLength)) -import qualified Database.PostgreSQL.Pure.Internal.Data as Data -import qualified Database.PostgreSQL.Pure.Internal.MonadFail as MonadFail -import qualified Database.PostgreSQL.Pure.Oid as Oid -import qualified Database.PostgreSQL.Simple.Time.Internal.Parser as Time - -import Prelude hiding (error, fail) - -import Control.Exception (assert) -import Control.Monad (replicateM, unless, void) -import Control.Monad.Fail (MonadFail (fail)) -import qualified Data.Attoparsec.ByteString as AP -import qualified Data.Attoparsec.ByteString.Char8 as APC -import Data.Attoparsec.Combinator (()) -import qualified Data.Attoparsec.Combinator as AP -import qualified Data.Attoparsec.Internal.Types as API -import qualified Data.ByteString as BS -import qualified Data.ByteString.Internal as BSI -import qualified Data.ByteString.Short as BSS -import qualified Data.ByteString.UTF8 as BSU -import Data.Functor (($>)) -import Data.Int (Int16, Int32, Int64, Int8) -import Data.Kind (Type) -import Data.Maybe (fromMaybe) -import Data.Memory.Endian (BE, ByteSwap, fromBE) -import Data.Scientific (Scientific, scientific) -import qualified Data.Text as Text -import Data.Time (Day, DiffTime, LocalTime, TimeOfDay, UTCTime, utc) -import Data.Tuple.Single (Single, pattern Single) -import Data.Word (Word16, Word32, Word64, Word8) -import Foreign (withForeignPtr) -import Foreign.Storable (Storable, peekByteOff, sizeOf) -import qualified GHC.Generics as Generics -import GHC.Stack (HasCallStack, callStack, prettyCallStack) -import qualified PostgreSQL.Binary.Decoding as BD -import System.IO.Unsafe (unsafeDupablePerformIO) - -#if MIN_VERSION_base(4,13,0) -import Control.Applicative ((<|>)) -#else -import Control.Applicative ((*>), (<|>)) -#endif - -response :: AP.Parser Response -response = - AuthenticationResponse <$> authentication - <|> ErrorResponse <$> error - <|> NoticeResponse <$> notice - <|> ParameterStatusResponse <$> parameterStatus - <|> BackendKeyDataResponse <$> backendKeyData - <|> ReadyForQueryResponse <$> readyForQuery - <|> RowDescriptionResponse <$> rowDescription - <|> DataRowResponse <$> dataRowRaw - <|> CommandCompleteResponse <$> commandComplete - <|> (parseComplete >> pure ParseCompleteResponse) - <|> (bindComplete >> pure BindCompleteResponse) - <|> (emptyQuery >> pure EmptyQueryResponse) - <|> DebugResponse <$> debug - -responseHeader :: AP.Parser Char -> AP.Parser (Char, Int) -responseHeader identParser = - ( "response header") $ do - ident <- identParser - len32 <- anyInt32BE - let len = fromIntegral len32 - 4 :: Int -- minus length of "length field" - pure (ident, len) - -authentication :: AP.Parser AuthenticationResponse -authentication = - ( "authentication") $ do - (_, len) <- responseHeader $ APC.char 'R' - checkConsumed len $ do - method <- anyInt32BE - case method of - 0 -> pure AuthenticationOkResponse - 3 -> pure AuthenticationCleartextPasswordResponse - 5 -> AuthenticationMD5PasswordResponse . AuthenticationMD5Password . BS.copy <$> AP.take 4 - t -> fail $ "not yet implemeted authentication type: " <> show t - -authenticationOk :: AP.Parser () -authenticationOk = - ( "authentication ok") $ do - (_, len) <- responseHeader $ APC.char 'R' - checkConsumed len $ void $ int32BE 0 - -error :: AP.Parser Error -error = - ( "error") $ do - (_, len) <- responseHeader $ APC.char 'E' - checkConsumed len $ Error . ErrorFields <$> list ((,) <$> APC.anyChar <*> (BSS.toShort <$> string)) - -notice :: AP.Parser Notice -notice = - ( "notice") $ do - (_, len) <- responseHeader $ APC.char 'N' - checkConsumed len $ Notice . ErrorFields <$> list ((,) <$> APC.anyChar <*> (BSS.toShort <$> string)) - -parameterStatus :: AP.Parser ParameterStatus -parameterStatus = - ( "parameter status") $ do - (_, len) <- responseHeader $ APC.char 'S' - checkConsumed len $ ParameterStatus <$> (BSS.toShort <$> string) <*> (BSS.toShort <$> string) - -backendKeyData :: AP.Parser BackendKeyData -backendKeyData = - ( "backend key data") $ do - (_, len) <- responseHeader $ APC.char 'K' - checkConsumed len $ BackendKeyData <$> anyInt32BE <*> anyInt32BE - -readyForQuery :: AP.Parser ReadyForQuery -readyForQuery = - ( "ready for query") $ do - (_, len) <- responseHeader $ APC.char 'Z' - checkConsumed len $ do - t <- APC.anyChar - case t of - 'I' -> pure $ ReadyForQuery Idle - 'T' -> pure $ ReadyForQuery Block - 'E' -> pure $ ReadyForQuery Failed - _ -> fail "invalid transacion state character" - -rowDescription :: AP.Parser RowDescription -rowDescription = - ( "row description") $ do - (_, len) <- responseHeader $ APC.char 'T' - checkConsumed len $ do - fieldCount <- anyInt16BE - RowDescription <$> - replicateM - (fromIntegral fieldCount) - (ColumnInfo <$> string <*> oid <*> anyInt16BE <*> oid <*> typeLength <*> anyInt32BE <*> formatCode) - -dataRow :: FromRecord r => StringDecoder -> [ColumnInfo] -> AP.Parser (DataRow r) -dataRow decode infos = - ( "data row") $ do - (_, len) <- responseHeader $ APC.char 'D' - checkConsumed len $ do - void $ int16BE (fromIntegral $ length infos) - DataRow <$> fromRecord decode infos - -dataRowRaw :: AP.Parser DataRowRaw -dataRowRaw = - ( "data row raw") $ do - (_, len) <- responseHeader $ APC.char 'D' - checkConsumed len $ do - columnCount <- anyInt16BE - let - go = do - l <- anyInt32BE - case l of - (-1) -> pure Null - _ -> Value . BS.copy <$> AP.take (fromIntegral l) - DataRowRaw <$> - replicateM - (fromIntegral columnCount) - go - -commandComplete :: AP.Parser CommandComplete -commandComplete = - ( "command complete") $ do - (_, len) <- responseHeader $ APC.char 'C' - checkConsumed len $ - do - void $ APC.string "INSERT " - o <- Oid <$> APC.decimal - void $ APC.char ' ' - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ InsertTag o r - <|> - do - void $ APC.string "DELETE " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ DeleteTag r - <|> - do - void $ APC.string "UPDATE " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ UpdateTag r - <|> - do - void $ APC.string "SELECT " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ SelectTag r - <|> - do - void $ APC.string "MOVE " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ MoveTag r - <|> - do - void $ APC.string "FETCH " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ FetchTag r - <|> - do - void $ APC.string "COPY " - r <- APC.decimal - void $ AP.word8 0 - pure $ CommandComplete $ CopyTag r - <|> APC.string "CREATE TABLE" *> AP.word8 0 $> CommandComplete CreateTableTag - <|> APC.string "DROP TABLE" *> AP.word8 0 $> CommandComplete DropTableTag - <|> APC.string "BEGIN" *> AP.word8 0 $> CommandComplete BeginTag - <|> APC.string "COMMIT" *> AP.word8 0 $> CommandComplete CommitTag - <|> APC.string "ROLLBACK" *> AP.word8 0 $> CommandComplete RollbackTag - <|> APC.string "SET" *> AP.word8 0 $> CommandComplete SetTag - -parseComplete :: AP.Parser () -parseComplete = - ( "parse complete") $ do - void $ APC.char8 '1' - void $ int32BE 4 - -bindComplete :: AP.Parser () -bindComplete = - ( "bind complete") $ do - void $ APC.char8 '2' - void $ int32BE 4 - -noData :: AP.Parser () -noData = - ( "no data") $ do - void $ APC.char8 'n' - void $ int32BE 4 - -parameterDescription :: AP.Parser ParameterDescription -parameterDescription = - ( "parameter description") $ do - (_, len) <- responseHeader $ APC.char 't' - checkConsumed len $ do - n <- anyInt16BE - ParameterDescription <$> replicateM (fromIntegral n) oid - -emptyQuery :: AP.Parser () -emptyQuery = - ( "empty query") $ do - void $ APC.char8 'I' - void $ int32BE 4 - -portalSuspended :: AP.Parser () -portalSuspended = - ( "portal suspended") $ do - void $ APC.char8 's' - void $ int32BE 4 - -closeComplete :: AP.Parser () -closeComplete = - ( "close complete") $ do - void $ APC.char8 '3' - void $ int32BE 4 - -skipUntilError :: AP.Parser Error -skipUntilError = - ( "skip until error") $ do - (ident, len) <- responseHeader APC.anyChar - case ident of - 'E' -> checkConsumed len $ Error . ErrorFields <$> list ((,) <$> APC.anyChar <*> (BSS.toShort <$> string)) - _ -> AP.take len >> skipUntilError - -debug :: AP.Parser Debug -debug = do - ident <- AP.anyWord8 - len <- AP.lookAhead anyInt32BE - bs <- AP.take $ fromIntegral len - pure $ Debug $ BS.cons ident bs - -satisfyN :: Int -> (BS.ByteString -> a) -> (a -> Bool) -> AP.Parser a -satisfyN l f p = do - bs <- AP.take l - let a = f bs - if p a - then pure a - else fail "satisfy n" - -satisfyStorable :: forall a. Storable a => (BS.ByteString -> a) -> (a -> Bool) -> AP.Parser a -satisfyStorable f p = satisfyN (sizeOf (undefined :: a)) f p "satisfy storable" - -type family Unsigned a :: Type -type instance Unsigned Word8 = Word8 -type instance Unsigned Word16 = Word16 -type instance Unsigned Word32 = Word32 -type instance Unsigned Word64 = Word64 -type instance Unsigned Int8 = Word8 -type instance Unsigned Int16 = Word16 -type instance Unsigned Int32 = Word32 -type instance Unsigned Int64 = Word64 - -satisfyIntegralBE :: forall a. (Integral a, Storable a, Integral (Unsigned a), ByteSwap (Unsigned a)) => (a -> Bool) -> AP.Parser a -satisfyIntegralBE p = satisfyStorable (fromIntegral . castByteSwapBE @(Unsigned a)) p "satisfy integral big endian" - -anyIntegralBE :: (Integral a, Storable a, Integral (Unsigned a), ByteSwap (Unsigned a)) => AP.Parser a -anyIntegralBE = satisfyIntegralBE (const True) "any integral big endian" - -anyInt16BE :: AP.Parser Int16 -anyInt16BE = anyIntegralBE "any int16 big endian" - -anyInt32BE :: AP.Parser Int32 -anyInt32BE = anyIntegralBE "any int32 big endian" - -integralBE :: (Integral a, Storable a, Integral (Unsigned a), ByteSwap (Unsigned a)) => a -> AP.Parser a -integralBE n = satisfyIntegralBE (== n) "integral big endian" - -int16BE :: Int16 -> AP.Parser Int16 -int16BE n = integralBE n "int16 big endian" - -int32BE :: Int32 -> AP.Parser Int32 -int32BE n = integralBE n "int32 big endian" - -castByteSwapBE :: forall a. ByteSwap a => BS.ByteString -> a -castByteSwapBE (BSI.PS fptr off len) = - assert (sizeOf (undefined :: a) == len) $ - let - be :: BE a - be = - unsafeDupablePerformIO $ - withForeignPtr fptr $ \ptr -> - peekByteOff ptr off - in fromBE be - -string :: AP.Parser BS.ByteString -string = AP.takeWhile (/= 0) <* AP.word8 0 "string" - -list :: AP.Parser a -> AP.Parser [a] -list p = (AP.word8 0 >> pure []) <|> (:) <$> p <*> list p "list" - -typeLength :: AP.Parser TypeLength -typeLength = - ( "type length") $ do - len <- anyInt16BE - if len < 0 - then pure VariableLength - else pure $ FixedLength len - -formatCode :: AP.Parser FormatCode -formatCode = - ( "format code") $ do - code <- anyInt16BE - case code of - 0 -> pure TextFormat - 1 -> pure BinaryFormat - _ -> fail "invalid format code" - -oid :: AP.Parser Oid -oid = Oid <$> anyInt32BE "OID" - -checkConsumed :: HasCallStack => Int -> AP.Parser a -> AP.Parser a -checkConsumed expected parser = do - API.Pos startPos <- currentPos - r <- parser - API.Pos endPos <- currentPos - let consumed = endPos - startPos - unless (expected == consumed) $ - fail $ "length mismatch: expected: " <> show expected <> ", consumed: " <> show consumed <> "\n" <> prettyCallStack callStack - pure r - -currentPos :: AP.Parser API.Pos -currentPos = API.Parser $ \t pos more _lose suc -> suc t pos more pos - -instance FromField Bool where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.bool - = case formatCode of - TextFormat | v == "t" -> pure True - | v == "f" -> pure False - | otherwise -> fail (show (BSU.toString v) <> " is not expected as bool") - BinaryFormat -> valueParser BD.bool v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Bool" - -instance FromField Int where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) -#if WORD_SIZE_IN_BITS < 32 /* the width of Int is wider than 30 bits */ - | typeOid == Oid.int2 -#elif WORD_SIZE_IN_BITS < 64 - | typeOid `elem` [Oid.int2, Oid.int4] -#else - | typeOid `elem` [Oid.int2, Oid.int4, Oid.int8] -#endif - = case formatCode of - TextFormat -> attoparsecParser (APC.signed APC.decimal) v - BinaryFormat -> valueParser BD.int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Int" - -instance FromField Int16 where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.int2 - = case formatCode of - TextFormat -> attoparsecParser (APC.signed APC.decimal) v - BinaryFormat -> valueParser BD.int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Int16" - -instance FromField Int32 where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid `elem` [Oid.int2, Oid.int4] - = case formatCode of - TextFormat -> attoparsecParser (APC.signed APC.decimal) v - BinaryFormat -> valueParser BD.int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Int32" - -instance FromField Int64 where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid `elem` [Oid.int2, Oid.int4, Oid.int8] - = case formatCode of - TextFormat -> attoparsecParser (APC.signed APC.decimal) v - BinaryFormat -> valueParser BD.int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Int64" - -instance FromField Scientific where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid `elem` [Oid.int2, Oid.int4, Oid.int8] - = (flip scientific 0 <$>) $ - case formatCode of - TextFormat -> attoparsecParser (APC.signed APC.decimal) v - BinaryFormat -> valueParser BD.int v - | typeOid == Oid.numeric - = case formatCode of - TextFormat -> attoparsecParser APC.scientific v - BinaryFormat -> valueParser BD.numeric v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Scientific" - -instance FromField Float where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.float4 - = case formatCode of - TextFormat -> attoparsecParser APC.rational v - BinaryFormat -> valueParser BD.float4 v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Float" - -instance FromField Double where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.float4 - = case formatCode of - TextFormat -> attoparsecParser APC.rational v - BinaryFormat -> realToFrac <$> valueParser BD.float4 v - | typeOid == Oid.float8 - = case formatCode of - TextFormat -> attoparsecParser APC.double v - BinaryFormat -> valueParser BD.float8 v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Double" - -instance FromField Oid where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.oid - = (Oid <$>) $ - case formatCode of - TextFormat -> attoparsecParser APC.decimal v - BinaryFormat -> valueParser BD.int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Oid" - -instance FromField Char where - fromField decode ColumnInfo { typeOid } (Just v) - | typeOid == Oid.char - = do - str <- MonadFail.fromEither $ decode v - case (str :: String) of - [c] -> pure c - _ -> fail $ "expected 1 character, actual " <> show (length str) <> " characters" - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Char" - -instance FromField String where - fromField decode ColumnInfo { typeOid } (Just v) - | typeOid `elem` [Oid.text, Oid.bpchar, Oid.varchar, Oid.name] - = MonadFail.fromEither $ decode v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: String" - -instance FromField BS.ByteString where - fromField _ ColumnInfo { typeOid } (Just v) - | typeOid `elem` [Oid.text, Oid.bpchar, Oid.varchar, Oid.name, Oid.bytea] = pure v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: ByteString (strict)" - -instance FromField Day where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.date - = case formatCode of - TextFormat -> attoparsecParser Time.day v - BinaryFormat -> valueParser BD.date v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: Day" - -instance FromField TimeOfDay where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.time - = case formatCode of - TextFormat -> attoparsecParser Time.timeOfDay v - BinaryFormat -> valueParser BD.time_int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: TimeOfDay" - -instance FromField TimeOfDayWithTimeZone where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.timetz - = case formatCode of - TextFormat -> attoparsecParser (TimeOfDayWithTimeZone <$> Time.timeOfDay <*> (fromMaybe utc <$> Time.timeZone)) v - BinaryFormat -> valueParser BD.timetz_int v >>= \(t, tz) -> pure $ TimeOfDayWithTimeZone t tz - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: TimeOfDayWithTimeZone" - -instance FromField LocalTime where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.timestamp - = case formatCode of - TextFormat -> attoparsecParser Time.localTime v - BinaryFormat -> valueParser BD.timestamp_int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: LocalTime" - -instance FromField UTCTime where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.timestamptz - = case formatCode of - TextFormat -> attoparsecParser Time.utcTime v - BinaryFormat -> valueParser BD.timestamptz_int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: UTCTime" - -instance FromField DiffTime where - fromField _ ColumnInfo { typeOid, Data.formatCode } (Just v) - | typeOid == Oid.interval - = case formatCode of - TextFormat -> attoparsecParser Time.diffTime v - BinaryFormat -> valueParser BD.interval_int v - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: DiffTime" - -instance FromField SqlIdentifier where - fromField decode info@ColumnInfo { typeOid } v@(Just _) - | typeOid == Oid.sqlIdentifier = SqlIdentifier <$> fromField decode info { typeOid = Oid.varchar } v -- pg_type.typbasetype - fromField _ ColumnInfo { typeOid } _ = fail $ "type mismatch (FromField): OID: " <> show typeOid <> ", Haskell: SqlIdentifier" - -instance FromField Raw where - fromField _ _ (Just v) = pure $ Value v - fromField _ _ Nothing = pure Null - -instance FromField a => FromField (Maybe a) where - fromField decode i v@(Just _) = Just <$> fromField decode i v - fromField _ _ Nothing = pure Nothing - -instance FromRecord Bool where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Int where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Int16 where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Int32 where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Int64 where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Scientific where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Float where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Double where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Oid where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Char where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord String where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord BS.ByteString where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Day where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord TimeOfDay where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord TimeOfDayWithTimeZone where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord LocalTime where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord UTCTime where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord DiffTime where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord SqlIdentifier where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromRecord Raw where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - -instance FromField a => FromRecord (Maybe a) where - fromRecord decode [i] = column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - --- 0 tuple -instance FromRecord () where - fromRecord _ [] = pure () - fromRecord _ is = fail $ "length mismatch: expected 0: actual: " <> show (length is) - --- 1 tuple -instance {-# OVERLAPPABLE #-} (FromField a, Single c, t ~ c a) => FromRecord t where - fromRecord decode [i] = Single <$> column decode i - fromRecord _ is = fail $ "length mismatch: expected 1: actual: " <> show (length is) - --- 2-tuple -instance (FromField i0, FromField i1) => FromRecord (i0, i1) where - fromRecord decode [i0, i1] = - (,) <$> column decode i0 <*> column decode i1 - fromRecord _ is = fail $ "length mismatch: expected 2: actual: " <> show (length is) - --- 3-tuple -instance (FromField i0, FromField i1, FromField i2) => FromRecord (i0, i1, i2) where - fromRecord decode [i0, i1, i2] = - (,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 - fromRecord _ is = fail $ "length mismatch: expected 3: actual: " <> show (length is) - --- 4-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3) => FromRecord (i0, i1, i2, i3) where - fromRecord decode [i0, i1, i2, i3] = - (,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 - fromRecord _ is = fail $ "length mismatch: expected 4: actual: " <> show (length is) - --- 5-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4) => FromRecord (i0, i1, i2, i3, i4) where - fromRecord decode [i0, i1, i2, i3, i4] = - (,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 - fromRecord _ is = fail $ "length mismatch: expected 5: actual: " <> show (length is) - --- 6-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5) => FromRecord (i0, i1, i2, i3, i4, i5) where - fromRecord decode [i0, i1, i2, i3, i4, i5] = - (,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 - fromRecord _ is = fail $ "length mismatch: expected 6: actual: " <> show (length is) - --- 7-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6) => FromRecord (i0, i1, i2, i3, i4, i5, i6) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6] = - (,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 - fromRecord _ is = fail $ "length mismatch: expected 7: actual: " <> show (length is) - --- 8-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7] = - (,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 - fromRecord _ is = fail $ "length mismatch: expected 8: actual: " <> show (length is) - --- 9-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8] = - (,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 - fromRecord _ is = fail $ "length mismatch: expected 9: actual: " <> show (length is) - --- 10-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9] = - (,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 - fromRecord _ is = fail $ "length mismatch: expected 10: actual: " <> show (length is) - --- 11-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10] = - (,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 - fromRecord _ is = fail $ "length mismatch: expected 11: actual: " <> show (length is) - --- 12-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11] = - (,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 - fromRecord _ is = fail $ "length mismatch: expected 12: actual: " <> show (length is) - --- 13-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12] = - (,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 - fromRecord _ is = fail $ "length mismatch: expected 13: actual: " <> show (length is) - --- 14-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13] = - (,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 - fromRecord _ is = fail $ "length mismatch: expected 14: actual: " <> show (length is) - --- 15-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14] = - (,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 - fromRecord _ is = fail $ "length mismatch: expected 15: actual: " <> show (length is) - --- 16-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15] = - (,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 - fromRecord _ is = fail $ "length mismatch: expected 16: actual: " <> show (length is) - --- 17-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16] = - (,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 - fromRecord _ is = fail $ "length mismatch: expected 17: actual: " <> show (length is) - --- 18-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17] = - (,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 - fromRecord _ is = fail $ "length mismatch: expected 18: actual: " <> show (length is) - --- 19-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18] = - (,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 - fromRecord _ is = fail $ "length mismatch: expected 19: actual: " <> show (length is) - --- 20-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19] = - (,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 - fromRecord _ is = fail $ "length mismatch: expected 20: actual: " <> show (length is) - --- 21-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20] = - (,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 - fromRecord _ is = fail $ "length mismatch: expected 21: actual: " <> show (length is) - --- 22-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21] = - (,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 - fromRecord _ is = fail $ "length mismatch: expected 22: actual: " <> show (length is) - --- 23-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22] = - (,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 - fromRecord _ is = fail $ "length mismatch: expected 23: actual: " <> show (length is) - --- 24-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23] = - (,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 - fromRecord _ is = fail $ "length mismatch: expected 24: actual: " <> show (length is) - --- 25-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24] = - (,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 - fromRecord _ is = fail $ "length mismatch: expected 25: actual: " <> show (length is) - --- 26-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25] = - (,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 - fromRecord _ is = fail $ "length mismatch: expected 26: actual: " <> show (length is) - --- 27-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 - fromRecord _ is = fail $ "length mismatch: expected 27: actual: " <> show (length is) - --- 28-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 - fromRecord _ is = fail $ "length mismatch: expected 28: actual: " <> show (length is) - --- 29-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 - fromRecord _ is = fail $ "length mismatch: expected 29: actual: " <> show (length is) - --- 30-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 - fromRecord _ is = fail $ "length mismatch: expected 30: actual: " <> show (length is) - --- 31-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 - fromRecord _ is = fail $ "length mismatch: expected 31: actual: " <> show (length is) - --- 32-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 - fromRecord _ is = fail $ "length mismatch: expected 32: actual: " <> show (length is) - --- 33-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 - fromRecord _ is = fail $ "length mismatch: expected 33: actual: " <> show (length is) - --- 34-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 - fromRecord _ is = fail $ "length mismatch: expected 34: actual: " <> show (length is) - --- 35-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 - fromRecord _ is = fail $ "length mismatch: expected 35: actual: " <> show (length is) - --- 36-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 - fromRecord _ is = fail $ "length mismatch: expected 36: actual: " <> show (length is) - --- 37-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 - fromRecord _ is = fail $ "length mismatch: expected 37: actual: " <> show (length is) - --- 38-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 - fromRecord _ is = fail $ "length mismatch: expected 38: actual: " <> show (length is) - --- 39-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 - fromRecord _ is = fail $ "length mismatch: expected 39: actual: " <> show (length is) - --- 40-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 - fromRecord _ is = fail $ "length mismatch: expected 40: actual: " <> show (length is) - --- 41-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 - fromRecord _ is = fail $ "length mismatch: expected 41: actual: " <> show (length is) - --- 42-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 - fromRecord _ is = fail $ "length mismatch: expected 42: actual: " <> show (length is) - --- 43-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 - fromRecord _ is = fail $ "length mismatch: expected 43: actual: " <> show (length is) - --- 44-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 - fromRecord _ is = fail $ "length mismatch: expected 44: actual: " <> show (length is) - --- 45-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 - fromRecord _ is = fail $ "length mismatch: expected 45: actual: " <> show (length is) - --- 46-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 - fromRecord _ is = fail $ "length mismatch: expected 46: actual: " <> show (length is) - --- 47-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 - fromRecord _ is = fail $ "length mismatch: expected 47: actual: " <> show (length is) - --- 48-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 - fromRecord _ is = fail $ "length mismatch: expected 48: actual: " <> show (length is) - --- 49-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 - fromRecord _ is = fail $ "length mismatch: expected 49: actual: " <> show (length is) - --- 50-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 - fromRecord _ is = fail $ "length mismatch: expected 50: actual: " <> show (length is) - --- 51-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 - fromRecord _ is = fail $ "length mismatch: expected 51: actual: " <> show (length is) - --- 52-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 - fromRecord _ is = fail $ "length mismatch: expected 52: actual: " <> show (length is) - --- 53-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 - fromRecord _ is = fail $ "length mismatch: expected 53: actual: " <> show (length is) - --- 54-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 - fromRecord _ is = fail $ "length mismatch: expected 54: actual: " <> show (length is) - --- 55-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 - fromRecord _ is = fail $ "length mismatch: expected 55: actual: " <> show (length is) - --- 56-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 - fromRecord _ is = fail $ "length mismatch: expected 56: actual: " <> show (length is) - --- 57-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 - fromRecord _ is = fail $ "length mismatch: expected 57: actual: " <> show (length is) - --- 58-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56, FromField i57) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 <*> column decode i57 - fromRecord _ is = fail $ "length mismatch: expected 58: actual: " <> show (length is) - --- 59-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56, FromField i57, FromField i58) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 <*> column decode i57 <*> column decode i58 - fromRecord _ is = fail $ "length mismatch: expected 59: actual: " <> show (length is) - --- 60-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56, FromField i57, FromField i58, FromField i59) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 <*> column decode i57 <*> column decode i58 <*> column decode i59 - fromRecord _ is = fail $ "length mismatch: expected 60: actual: " <> show (length is) - --- 61-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56, FromField i57, FromField i58, FromField i59, FromField i60) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 <*> column decode i57 <*> column decode i58 <*> column decode i59 <*> column decode i60 - fromRecord _ is = fail $ "length mismatch: expected 61: actual: " <> show (length is) - --- 62-tuple -instance (FromField i0, FromField i1, FromField i2, FromField i3, FromField i4, FromField i5, FromField i6, FromField i7, FromField i8, FromField i9, FromField i10, FromField i11, FromField i12, FromField i13, FromField i14, FromField i15, FromField i16, FromField i17, FromField i18, FromField i19, FromField i20, FromField i21, FromField i22, FromField i23, FromField i24, FromField i25, FromField i26, FromField i27, FromField i28, FromField i29, FromField i30, FromField i31, FromField i32, FromField i33, FromField i34, FromField i35, FromField i36, FromField i37, FromField i38, FromField i39, FromField i40, FromField i41, FromField i42, FromField i43, FromField i44, FromField i45, FromField i46, FromField i47, FromField i48, FromField i49, FromField i50, FromField i51, FromField i52, FromField i53, FromField i54, FromField i55, FromField i56, FromField i57, FromField i58, FromField i59, FromField i60, FromField i61) => FromRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60, i61) where - fromRecord decode [i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60, i61] = - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) <$> column decode i0 <*> column decode i1 <*> column decode i2 <*> column decode i3 <*> column decode i4 <*> column decode i5 <*> column decode i6 <*> column decode i7 <*> column decode i8 <*> column decode i9 <*> column decode i10 <*> column decode i11 <*> column decode i12 <*> column decode i13 <*> column decode i14 <*> column decode i15 <*> column decode i16 <*> column decode i17 <*> column decode i18 <*> column decode i19 <*> column decode i20 <*> column decode i21 <*> column decode i22 <*> column decode i23 <*> column decode i24 <*> column decode i25 <*> column decode i26 <*> column decode i27 <*> column decode i28 <*> column decode i29 <*> column decode i30 <*> column decode i31 <*> column decode i32 <*> column decode i33 <*> column decode i34 <*> column decode i35 <*> column decode i36 <*> column decode i37 <*> column decode i38 <*> column decode i39 <*> column decode i40 <*> column decode i41 <*> column decode i42 <*> column decode i43 <*> column decode i44 <*> column decode i45 <*> column decode i46 <*> column decode i47 <*> column decode i48 <*> column decode i49 <*> column decode i50 <*> column decode i51 <*> column decode i52 <*> column decode i53 <*> column decode i54 <*> column decode i55 <*> column decode i56 <*> column decode i57 <*> column decode i58 <*> column decode i59 <*> column decode i60 <*> column decode i61 - fromRecord _ is = fail $ "length mismatch: expected 62: actual: " <> show (length is) - --- list -instance {-# OVERLAPPABLE #-} FromField a => FromRecord [a] where - fromRecord decode is = sequence $ column decode <$> is - --- generic -instance GFromRecord f => GFromRecord (Generics.M1 i t f) where - gFromRecord decode infos = (\(r, is) -> (Generics.M1 r, is)) <$> gFromRecord decode infos - -instance FromField c => GFromRecord (Generics.K1 i c) where - gFromRecord decode (i:infos) = (, infos) . Generics.K1 <$> column decode i - gFromRecord _ [] = fail "length mismatch: too few" - -instance (GFromRecord f, GFromRecord g) => GFromRecord (f Generics.:*: g) where - gFromRecord decode infos = do - (rep, infos') <- gFromRecord decode infos - (rep', infos'') <- gFromRecord decode infos' - pure (rep Generics.:*: rep', infos'') - --- | For implementing 'fromRecord'. -column :: FromField a => StringDecoder -> ColumnInfo -> AP.Parser a -column decode info = do - l <- anyInt32BE - case l of - (-1) -> fromField decode info Nothing - _ -> fromField decode info . Just =<< AP.take (fromIntegral l) - -attoparsecParser :: MonadFail m => AP.Parser a -> BS.ByteString -> m a -attoparsecParser parser string = - case AP.parseOnly (parser <* AP.endOfInput) string of - Right a -> pure a - Left e -> fail e - -valueParser :: MonadFail m => BD.Value a -> BS.ByteString -> m a -valueParser parser string = - case BD.valueParser parser string of - Right a -> pure a - Left e -> fail $ Text.unpack e diff --git a/src/Database/PostgreSQL/Pure/Internal/Query.hs b/src/Database/PostgreSQL/Pure/Internal/Query.hs --- a/src/Database/PostgreSQL/Pure/Internal/Query.hs +++ b/src/Database/PostgreSQL/Pure/Internal/Query.hs @@ -5,7 +5,6 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeApplications #-} @@ -74,10 +73,10 @@ -- | To get the procedure to build the message of parsing SQL query and to parse its response. parse :: PreparedStatementName -- ^ A new name of prepared statement. - -> Query -- ^ SQL whose placeoholder style is dollar style. + -> Query -- ^ SQL whose placeholder style is dollar style. -> Either (Word, Word) ([Oid], [Oid]) -- ^ A pair of the number of columns of the parameter and the result, -- or a pair of the list of OIDs of the parameter and the result. - -- On 'Left' an additional pair of a request and a resposne is necessary. + -- On 'Left' an additional pair of a request and a response is necessary. -> PreparedStatementProcedure parse name query (Left (parameterLength, resultLength)) = parse' name query parameterLength resultLength Nothing parse name query (Right oids@(parameterOids, resultOids)) = parse' name query (genericLength parameterOids) (genericLength resultOids) (Just oids) diff --git a/src/Database/PostgreSQL/Pure/List.hs b/src/Database/PostgreSQL/Pure/List.hs --- a/src/Database/PostgreSQL/Pure/List.hs +++ b/src/Database/PostgreSQL/Pure/List.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeFamilies #-} @@ -101,6 +100,8 @@ , ToField (..) , ToRecord (..) , Raw (..) + , SqlIdentifier (..) + , TimeOfDayWithTimeZone (..) -- * Exception , Exception.Exception (..) , Exception.ErrorResponse (..) @@ -123,7 +124,9 @@ PortalProcedure, PreparedStatement, PreparedStatementName (PreparedStatementName), PreparedStatementProcedure, Query (Query), - Raw (Null, Value), StringDecoder, StringEncoder, + Raw (Null, Value), SqlIdentifier (SqlIdentifier), + StringDecoder, StringEncoder, + TimeOfDayWithTimeZone (TimeOfDayWithTimeZone, timeOfDay, timeZone), ToField (toField), ToRecord (toRecord), TransactionState (Block, Failed, Idle)) import qualified Database.PostgreSQL.Pure.Internal.Data as Data diff --git a/template/Builder.hs b/template/Builder.hs --- a/template/Builder.hs +++ b/template/Builder.hs @@ -6,7 +6,6 @@ {-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} -{-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -Wno-orphans #-} @@ -155,7 +154,7 @@ ) + 2 -- the number of parameters + 4 * length parameters -- length field of each parameters - + sum ((\p -> case p of Just bs -> BS.length bs; Nothing -> 0) <$> parameters) -- parameters themselves + + sum (maybe 0 BS.length <$> parameters) -- parameters themselves + 2 -- the number of result format codes + ( case resultFormatCodes of -- format codes BindResultFormatCodesNothing -> 0 diff --git a/template/Length.hs b/template/Length.hs --- a/template/Length.hs +++ b/template/Length.hs @@ -1,5 +1,4 @@ {-# LANGUAGE DataKinds #-} -{-# LANGUAGE DefaultSignatures #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE ScopedTypeVariables #-} diff --git a/test-hdbc-postgresql/SpecificDBTests.hs b/test-hdbc-postgresql/SpecificDBTests.hs --- a/test-hdbc-postgresql/SpecificDBTests.hs +++ b/test-hdbc-postgresql/SpecificDBTests.hs @@ -1,15 +1,17 @@ {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} module SpecificDBTests where import Database.HDBC import Database.HDBC.PostgreSQL.Pure import Database.PostgreSQL.Placeholder.Convert (convertQuestionMarkStyleToDollarSignStyle) +import Data.Either.Result (pattern Success, pattern Error) import Test.HUnit testp inp exp = TestCase $ case convertQuestionMarkStyleToDollarSignStyle inp of - Right x -> assertEqual "" exp x - Left y -> assertFailure $ show y + Success x -> assertEqual "" exp x + Error y -> assertFailure $ show y tests = TestList [TestLabel "empty" (testp "" ""), diff --git a/test-original/Database/PostgreSQL/Pure/ListSpec.hs b/test-original/Database/PostgreSQL/Pure/ListSpec.hs --- a/test-original/Database/PostgreSQL/Pure/ListSpec.hs +++ b/test-original/Database/PostgreSQL/Pure/ListSpec.hs @@ -9,7 +9,7 @@ import Database.PostgreSQL.Pure.List import qualified Database.PostgreSQL.Pure.Oid as Oid -import Test.Hspec +import Test.Hspec hiding (beforeAllWith) import Test.Hspec.Core.Hooks.Extra import Control.Monad (void) diff --git a/test-original/Database/PostgreSQL/PureSpec.hs b/test-original/Database/PostgreSQL/PureSpec.hs --- a/test-original/Database/PostgreSQL/PureSpec.hs +++ b/test-original/Database/PostgreSQL/PureSpec.hs @@ -9,7 +9,7 @@ import Database.PostgreSQL.Pure import qualified Database.PostgreSQL.Pure.Oid as Oid -import Test.Hspec +import Test.Hspec hiding (beforeAllWith) import Test.Hspec.Core.Hooks.Extra import Control.Monad (void) diff --git a/test-original/Test/Hspec/Core/Hooks/Extra.hs b/test-original/Test/Hspec/Core/Hooks/Extra.hs --- a/test-original/Test/Hspec/Core/Hooks/Extra.hs +++ b/test-original/Test/Hspec/Core/Hooks/Extra.hs @@ -1,7 +1,12 @@ +{-# LANGUAGE CPP #-} + module Test.Hspec.Core.Hooks.Extra ( beforeAllWith ) where +#if MIN_VERSION_hspec(2,7,6) +import Test.Hspec +#else import Test.Hspec.Core.Hooks import Test.Hspec.Core.Spec @@ -28,3 +33,4 @@ beforeAllWith action spec = do mver <- runIO (newMVar Empty) beforeWith (memoize mver . action) spec +#endif