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

relational-query: add template of ShowConstantTermsSQL instance.

Browse Source
This commit is contained in:
Kei Hibino 2017-04-03 15:52:33 +09:00
parent a83b852055
commit 7e31f1e7ca
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,7 +82,7 @@ import Database.Record.TH
import qualified Database.Record.TH as Record
import Database.Relational.Query
(Table, Pi, id', Relation,
(Table, Pi, id', Relation, ShowConstantTermsSQL,
NameConfig (..), SchemaNameMode (..), IdentifierQuotation (..),
Config (normalizedTableName, schemaNameMode, nameConfig, identifierQuotation),
relationalQuerySQL, Query, relationalQuery, KeyUpdate,
@ -314,10 +314,12 @@ defineTableTypesAndRecord :: Config -- ^ Configuration to generate qu
-> [Name] -- ^ Record derivings
-> Q [Dec] -- ^ Result declarations
defineTableTypesAndRecord config schema table columns derives = do
recD <- defineRecordTypeWithConfig (recordConfig $ nameConfig config) schema table columns derives
let recConfig = recordConfig $ nameConfig config
recD <- defineRecordTypeWithConfig recConfig schema table columns derives
rconD <- defineProductConstructorInstanceWithConfig config schema table [t | (_, t) <- columns]
ctD <- [d| instance ShowConstantTermsSQL $(fst $ recordTemplate recConfig schema table) |]
tableDs <- defineTableTypesWithConfig config schema table [(c, Nothing) | c <- columns ]
return $ recD ++ rconD ++ tableDs
return $ recD ++ rconD ++ ctD ++ tableDs
-- | Template of derived primary 'Query'.
definePrimaryQuery :: VarName -- ^ Variable name of result declaration