khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

Formatted.

Browse Source
This commit is contained in:
Kei Hibino 2015-11-11 17:12:28 +09:00
parent be77c14ab2
commit 8462e5979a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@ module Database.HDBC.Query.TH (
import Data.Maybe (listToMaybe, fromMaybe)
import qualified Data.Map as Map
import Control.Applicative ((<$>), (<*>))
import Control.Monad (when)
import Control.Monad (when, void)
import Database.HDBC (IConnection, SqlValue, prepare)
@ -144,7 +144,5 @@ 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
prepare conn sql)
void . runIO $ withConnectionIO connect (\conn -> prepare conn sql)
Relational.unsafeInlineQuery (return p) (return r) sql (varCamelcaseName qns)