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

Update example code.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-03 23:51:55 +09:00
parent a76b21624c
commit e8fc026cad
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,6 +279,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
putStrLn $ "SQL: " ++ sqlFromRelation userGroupU
pq <- prepare conn (relationalQuery 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