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

Update examples along with library update.

Browse Source
This commit is contained in:
Kei Hibino 2013-08-15 23:44:14 +09:00
parent 77ed3f9344
commit 9d5d77dc0e
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
relational-join-HDBC-pgTest/example/1/queryExample.hs
View File

@ -14,9 +14,10 @@ import Group (Group, group)
import Membership (Membership, groupId', userId', membership) import Membership (Membership, groupId', userId', membership)
import PgTestDataSource (connect) import PgTestDataSource (connect)
import Database.HDBC.Record.Statement
(ExecutedStatement, bindTo, execute)
import Database.HDBC.Record.Query import Database.HDBC.Record.Query
(ExecutedStatement, (runQuery, prepare, fetchUnique, fetchUnique')
runQuery, prepare, bindTo, execute, fetchUnique, fetchUnique')
import Database.HDBC.Session (withConnectionIO, handleSqlError') import Database.HDBC.Session (withConnectionIO, handleSqlError')
@ -216,7 +217,7 @@ 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
putStrLn $ "SQL: " ++ sqlFromRelation rel putStrLn $ "SQL: " ++ sqlFromRelation rel
records <- runQuery conn param (fromRelation rel) records <- runQuery conn param (relationalQuery rel)
mapM_ print records mapM_ print records
putStrLn "" putStrLn ""
@ -242,7 +243,7 @@ run = handleSqlError' $ withConnectionIO connect
runU :: Show a => (ExecutedStatement (User, Group) -> IO a) -> IO () runU :: Show a => (ExecutedStatement (User, Group) -> IO a) -> IO ()
runU f = handleSqlError' $ withConnectionIO connect runU f = handleSqlError' $ withConnectionIO connect
(\conn -> do (\conn -> do
pq <- prepare conn (fromRelation userGroupU) pq <- prepare conn (relationalQuery userGroupU)
let bs = ("Kei Hibino", "Haskell") `bindTo` pq let bs = ("Kei Hibino", "Haskell") `bindTo` pq
es <- execute bs es <- execute bs
r <- f es r <- f es

2
relational-join-HDBC-pgTest/example/3/query.hs
View File

@ -55,7 +55,7 @@ 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
putStrLn $ "SQL: " ++ sqlFromRelation rel putStrLn $ "SQL: " ++ sqlFromRelation rel
records <- runQuery conn param (fromRelation rel) records <- runQuery conn param (relationalQuery rel)
mapM_ print records mapM_ print records
putStrLn "" putStrLn ""