khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 22:02:07 +03:00
Code Issues Projects Releases Wiki Activity

Change to use TH quote directly for derivings.

Browse Source
This commit is contained in:
Kei Hibino 2015-12-01 00:09:13 +09:00
parent 303b20b6d9
commit fb0c7f3326
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-query/src/Database/Relational/Query/TH.hs
View File

@ -302,7 +302,7 @@ defineTableTypesAndRecordDefault :: Config -- ^ Configuration to gene
-> 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 derives = do
recD <- defineRecordTypeDefault table columns derives
@ -383,7 +383,7 @@ defineTableDefault :: Config -- ^ Configuration to generate query wit
-> 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