mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-10-26 10:18:01 +03:00
examples/HDBC/PostgreSQL: apply derivedUpdate
This commit is contained in:
parent
ee0e38a42b
commit
ce6d4c416f
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user