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

Reference verboseAsCompilerWarning.

Browse Source
This commit is contained in:
Kei Hibino 2015-11-11 14:40:56 +09:00
parent 8dbc35402d
commit e14799ce3f
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-HDBC/src/Database/HDBC/Query/TH.hs
View File

@ -39,7 +39,7 @@ import Language.Haskell.TH.Lib.Extra (reportWarning, reportError, reportMessage)
import Database.Record.TH (makeRecordPersistableWithSqlTypeDefault)
import qualified Database.Record.TH as Record
import Database.Relational.Query (Relation, Config, defaultConfig, relationalQuerySQL)
import Database.Relational.Query (Relation, Config, verboseAsCompilerWarning, defaultConfig, relationalQuerySQL)
import Database.Relational.Query.SQL (QuerySuffix)
import qualified Database.Relational.Query.TH as Relational
@ -98,7 +98,7 @@ defineTableFromDB' :: IConnection conn
-> Q [Dec] -- ^ Result declaration
defineTableFromDB' connect config drv scm tbl derives = do
let getDBinfo = do
logChan <- newLogChan {- TODO: should get this flag from config -} False
logChan <- newLogChan $ verboseAsCompilerWarning config
infoP <- withConnectionIO connect
(\conn ->
(,)