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 example.

Browse Source
This commit is contained in:
Kei Hibino 2014-01-25 17:30:31 +09:00
parent 750fcd2c48
commit 573e056964
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
relational-query-HDBC-pgTest/example/4/modifyExample.hs
View File

@ -46,9 +46,16 @@ pine = relation $ do
insertPine :: InsertQuery ()
insertPine = typedInsertQuery tableOfStock pine
runInsertPine :: IO ()
runInsertPine = handleConnectionIO connect $ \conn -> do
_ <- runInsertQuery conn insertPine ()
fig :: Relation () Stock
fig = relation $ do
return $ Stock |$| value 7 |*| value "Fig" |*| value 200 |*| value 13
insertFig :: InsertQuery ()
insertFig = insertQueryStock fig
runInsertQuery1 :: InsertQuery () -> IO ()
runInsertQuery1 ins = handleConnectionIO connect $ \conn -> do
_ <- runInsertQuery conn ins ()
commit conn
riseOfBanana :: Update ()
@ -107,7 +114,8 @@ runDeleteStocks d xs = handleConnectionIO connect $ \conn -> do
run :: IO ()
run = do
runInsertStocks0
runInsertPine
runInsertQuery1 insertPine
runInsertQuery1 insertFig
runUpdateAndPrint riseOfBanana ()
runUpdateAndPrint updateCherry (newCherry, (4, "Cherry"))
runKeyUpdateAndPrint keyUpdateUidName newOrange