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

Add call example of inlineVerifiedQuery.

Browse Source
This commit is contained in:
Kei Hibino 2014-04-22 20:22:29 +09:00
parent bdd11523ec
commit 9ef9f0b65a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
relational-query-HDBC-pgTest/example/1/run.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
import QueryExample import QueryExample
@ -16,8 +17,14 @@ import Database.HDBC.Record.Statement
import Database.HDBC.Record.Query import Database.HDBC.Record.Query
(runQuery, prepare, fetchUnique, fetchUnique') (runQuery, prepare, fetchUnique, fetchUnique')
import Database.HDBC.Session (withConnectionIO, handleSqlError') import Database.HDBC.Session (withConnectionIO, handleSqlError')
import Database.HDBC.Query.TH (inlineVerifiedQuery)
-- HDBC.PostgreSQL driver doesn't call DB check.
$(inlineVerifiedQuery connect
'userGroup2Fail userGroup2Fail
defaultConfig [] "queryUserGroup2Fail")
runAndPrint :: (Show a, IConnection conn, FromSql SqlValue a, ToSql SqlValue p) runAndPrint :: (Show a, IConnection conn, FromSql SqlValue a, ToSql SqlValue p)
=> conn -> Relation p a -> p -> IO () => conn -> Relation p a -> p -> IO ()
runAndPrint conn rel param = do runAndPrint conn rel param = do