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

Not to use reportMessage.

Browse Source
This commit is contained in:
Kei Hibino 2015-11-11 17:10:15 +09:00
parent 31c8f65212
commit be77c14ab2
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

@ -35,7 +35,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.Lib.Extra (reportWarning, reportError, reportMessage)
import Language.Haskell.TH.Lib.Extra (reportWarning, reportError)
import Database.Record.TH (makeRecordPersistableWithSqlTypeDefault)
import qualified Database.Record.TH as Record
@ -143,8 +143,8 @@ inlineVerifiedQuery :: IConnection conn
inlineVerifiedQuery connect relVar rel config sufs qns = do
(p, r) <- Relational.reifyRelation relVar
let sql = relationalQuerySQL config rel sufs
when (verboseAsCompilerWarning config) . reportWarning $ "Verify with prepare: " ++ sql
_ <- runIO $ withConnectionIO connect
(\conn -> do
reportMessage $ "Verify with prepare: " ++ sql
prepare conn sql)
Relational.unsafeInlineQuery (return p) (return r) sql (varCamelcaseName qns)