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

relational-query-HDBC: expand QuerySuffix synonym.

Browse Source
This commit is contained in:
Kei Hibino 2019-05-16 11:19:06 +09:00
parent bcf3e00e02
commit 4dce6b66ce
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
relational-query-HDBC/src/Database/HDBC/Query/TH.hs
View File

@ -39,11 +39,12 @@ import Language.Haskell.TH (Q, runIO, Name, TypeQ, Type (AppT, ConT), Dec)
import Language.Haskell.TH.Name.CamelCase (varCamelcaseName)
import Language.Haskell.TH.Lib.Extra (reportWarning, reportError)
import Language.SQL.Keyword (Keyword)
import Database.Record (ToSql, FromSql)
import Database.Record.TH (recordTemplate, defineSqlPersistableInstances)
import Database.Relational
(Config, nameConfig, recordConfig, enableWarning, verboseAsCompilerWarning,
defaultConfig, Relation, untypeQuery, relationalQuery_, QuerySuffix)
defaultConfig, Relation, untypeQuery, relationalQuery_)
import qualified Database.Relational.TH as Relational
import Database.HDBC.Session (withConnectionIO)
@ -176,7 +177,7 @@ inlineVerifiedQuery :: IConnection conn
-> Name -- ^ Top-level variable name which has 'Relation' type
-> Relation p r -- ^ Object which has 'Relation' type
-> Config -- ^ Configuration to generate SQL
-> QuerySuffix -- ^ suffix SQL words
-> [Keyword] -- ^ suffix SQL words
-> String -- ^ Variable name to define as inlined query
-> Q [Dec] -- ^ Result declarations
inlineVerifiedQuery connect relVar rel config sufs qns = do