relational-query 0.6.4.0 → 0.7.0.0

raw patch · 2 files changed

+6/−6 lines, 2 filesdep ~names-thdep ~persistable-record

Dependency ranges changed: names-th, persistable-record

Files

• relational-query.cabal +2/−2
• src/Database/Relational/Query/TH.hs +4/−4

@@ -1,5 +1,5 @@ name:                relational-query-version:             0.6.4.0+version:             0.7.0.0 synopsis:            Typeful, Modular, Relational, algebraic query engine description:         This package contiains typeful relation structure and                      relational-algebraic query building DSL which can@@ -78,7 +78,7 @@                        , template-haskell                        , sql-words >=0.1.1                        , names-th-                       , persistable-record+                       , persistable-record >= 0.2    hs-source-dirs:      src   ghc-options:         -Wall

@@ -302,10 +302,10 @@                                  -> String            -- ^ Schema name                                  -> String            -- ^ Table name                                  -> [(String, TypeQ)] -- ^ Column names and types-                                 -> [ConName]         -- ^ Record derivings+                                 -> [Name]            -- ^ Record derivings                                  -> Q [Dec]           -- ^ Result declarations-defineTableTypesAndRecordDefault config schema table columns drives = do-  recD    <- defineRecordTypeDefault table columns drives+defineTableTypesAndRecordDefault config schema table columns derives = do+  recD    <- defineRecordTypeDefault table columns derives   rconD   <- defineProductConstructorInstanceDefault table [t | (_, t) <- columns]   tableDs <- defineTableTypesDefault config schema table [(c, Nothing) | c <- columns ]   return $ recD ++ rconD ++ tableDs@@ -383,7 +383,7 @@                    -> String            -- ^ Schema name string of Database                    -> String            -- ^ Table name string of Database                    -> [(String, TypeQ)] -- ^ Column names and types-                   -> [ConName]         -- ^ derivings for Record type+                   -> [Name]            -- ^ derivings for Record type                    -> [Int]             -- ^ Primary key index                    -> Maybe Int         -- ^ Not null key index                    -> Q [Dec]           -- ^ Result declarations