relational-query-HDBC 0.3.1.0 → 0.4.0.0
raw patch · 2 files changed
+8/−8 lines, 2 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)
- Database.HDBC.Query.TH: defineTableDefault :: Config -> String -> String -> [(String, TypeQ)] -> [ConName] -> [Int] -> Maybe Int -> Q [Dec]
+ Database.HDBC.Query.TH: defineTableDefault :: Config -> String -> String -> [(String, TypeQ)] -> [Name] -> [Int] -> Maybe Int -> Q [Dec]
- Database.HDBC.Query.TH: defineTableDefault' :: Config -> String -> String -> [(String, TypeQ)] -> [ConName] -> Q [Dec]
+ Database.HDBC.Query.TH: defineTableDefault' :: Config -> String -> String -> [(String, TypeQ)] -> [Name] -> Q [Dec]
- Database.HDBC.Query.TH: defineTableFromDB :: IConnection conn => IO conn -> Driver conn -> String -> String -> [ConName] -> Q [Dec]
+ Database.HDBC.Query.TH: defineTableFromDB :: IConnection conn => IO conn -> Driver conn -> String -> String -> [Name] -> Q [Dec]
- Database.HDBC.Query.TH: defineTableFromDB' :: IConnection conn => IO conn -> Config -> Driver conn -> String -> String -> [ConName] -> Q [Dec]
+ Database.HDBC.Query.TH: defineTableFromDB' :: IConnection conn => IO conn -> Config -> Driver conn -> String -> String -> [Name] -> Q [Dec]
Files
relational-query-HDBC.cabal view
@@ -1,5 +1,5 @@ name: relational-query-HDBC-version: 0.3.1.0+version: 0.4.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- , relational-query >= 0.6.2+ , persistable-record >= 0.2+ , relational-query >= 0.7 , relational-schemas , HDBC >=2 , HDBC-session
src/Database/HDBC/Query/TH.hs view
@@ -34,7 +34,7 @@ import Database.HDBC (IConnection, SqlValue, prepare) import Language.Haskell.TH (Q, runIO, Name, TypeQ, Dec)-import Language.Haskell.TH.Name.CamelCase (ConName, varCamelcaseName)+import Language.Haskell.TH.Name.CamelCase (varCamelcaseName) import Language.Haskell.TH.Lib.Extra (reportWarning, reportError) import Database.Record.TH (makeRecordPersistableWithSqlTypeDefault)@@ -66,7 +66,7 @@ -> String -- ^ Schema name -> String -- ^ Table name -> [(String, TypeQ)] -- ^ List of column name and type- -> [ConName] -- ^ Derivings+ -> [Name] -- ^ Derivings -> Q [Dec] -- ^ Result declaration defineTableDefault' config schema table columns derives = do modelD <- Relational.defineTableTypesAndRecordDefault config schema table columns derives@@ -78,7 +78,7 @@ -> String -- ^ Schema name -> String -- ^ Table name -> [(String, TypeQ)] -- ^ List of column name and type- -> [ConName] -- ^ Derivings+ -> [Name] -- ^ Derivings -> [Int] -- ^ Indexes to represent primary key -> Maybe Int -- ^ Index of not-null key -> Q [Dec] -- ^ Result declaration@@ -94,7 +94,7 @@ -> Driver conn -- ^ Driver definition -> String -- ^ Schema name -> String -- ^ Table name- -> [ConName] -- ^ Derivings+ -> [Name] -- ^ Derivings -> Q [Dec] -- ^ Result declaration defineTableFromDB' connect config drv scm tbl derives = do let getDBinfo = do@@ -127,7 +127,7 @@ -> Driver conn -- ^ Driver definition -> String -- ^ Schema name -> String -- ^ Table name- -> [ConName] -- ^ Derivings+ -> [Name] -- ^ Derivings -> Q [Dec] -- ^ Result declaration defineTableFromDB connect = defineTableFromDB' connect defaultConfig