khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-10-26 10:18:01 +03:00
Code Issues Projects Releases Wiki Activity

examples/HDBC/PostgreSQL: apply derivedUpdate

Browse Source
This commit is contained in:
Kei Hibino 2017-04-18 12:25:38 +09:00
parent ee0e38a42b
commit ce6d4c416f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/HDBC/PostgreSQL/example/4/modifyExample.hs
View File

@ -61,9 +61,10 @@ runInsertQuery1 ins = handleConnectionIO connect $ \conn -> do
commit conn
riseOfBanana :: Update ()
riseOfBanana = typedUpdate tableOfStockGoods . updateTarget $ \proj -> do
riseOfBanana = derivedUpdate $ \proj -> do
unit' <-# proj ! unit' .*. value 2
wheres $ proj ! name' .=. value "Banana"
return unitPlaceHolder
newCherry :: StockGoods