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 examples along with library.

Browse Source
This commit is contained in:
Kei Hibino 2013-09-25 18:01:12 +09:00
parent f368588d71
commit bbb96d76f7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
relational-join-HDBC-pgTest/example/4/modifyExample.hs
View File

@ -30,7 +30,7 @@ runInsertStocks ss = handleConnectionIO connect $ \conn -> do
let q = insertStock
putStrLn $ "SQL: " ++ show q
ps <- prepareInsert conn q
rvs <- mapM (`runPreparedInsert` ps) ss
rvs <- mapM (runPreparedInsert ps) ss
print rvs
commit conn
@ -85,8 +85,8 @@ deleteStock = typedDelete tableOfStock . restriction' $ \proj -> do
runDeleteStocks :: ToSql SqlValue a => Delete a -> [a] -> IO ()
runDeleteStocks d xs = handleConnectionIO connect $ \conn -> do
putStrLn $ "SQL: " ++ show d
ps <- prepareDelete conn d
rvs <- mapM (`runPreparedDelete` ps) xs
ps <- prepareDelete conn d
rvs <- mapM (runPreparedDelete ps) xs
print rvs
commit conn