relational-query-HDBC 0.4.0.0 → 0.5.0.0

raw patch · 3 files changed

+8/−8 lines, 3 filesdep ~persistable-recorddep ~relational-queryPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: persistable-record, relational-query

API changes (from Hackage documentation)

Files

• relational-query-HDBC.cabal +3/−3
• src/Database/HDBC/Query/TH.hs +4/−4
• src/Database/HDBC/Record/Insert.hs +1/−1

@@ -1,5 +1,5 @@ name:                relational-query-HDBC-version:             0.4.0.0+version:             0.5.0.0 synopsis:            HDBC instance of relational-query and typed query interface for HDBC description:         This package contains the HDBC instance of relational-query and                      the typed query interface for HDBC.@@ -49,8 +49,8 @@                        , dlist                         , names-th-                       , persistable-record >= 0.2-                       , relational-query >= 0.7+                       , persistable-record >= 0.3+                       , relational-query >= 0.8                        , relational-schemas                        , HDBC >=2                        , HDBC-session

@@ -69,8 +69,8 @@                     -> [Name]            -- ^ Derivings                     -> Q [Dec]           -- ^ Result declaration defineTableDefault' config schema table columns derives = do-  modelD <- Relational.defineTableTypesAndRecordDefault config schema table columns derives-  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] table $ length columns+  modelD <- Relational.defineTableTypesAndRecord config schema table columns derives+  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns   return $ modelD ++ sqlvD  -- | Generate all HDBC templates about table using default naming rule.@@ -83,8 +83,8 @@                    -> Maybe Int         -- ^ Index of not-null key                    -> Q [Dec]           -- ^ Result declaration defineTableDefault config schema table columns derives primary notNull = do-  modelD <- Relational.defineTableDefault config schema table columns derives primary notNull-  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] table $ length columns+  modelD <- Relational.defineTable config schema table columns derives primary notNull+  sqlvD  <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns   return $ modelD ++ sqlvD  -- | Generate all HDBC templates using system catalog informations with specified config.

@@ -21,7 +21,7 @@  import Database.HDBC (IConnection, SqlValue) -import Database.Relational.Query (Insert (..))+import Database.Relational.Query (Insert (..), untypeChunkInsert, chunkSizeOfInsert) import Database.Record (ToSql, fromRecord)  import Database.HDBC.Record.Statement