nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Merge pull request #84 from astro/transactionize

Browse source 
Handler.Buy: transactionize postBuyR runDB
This commit is contained in:
rys ostrovid 2016-01-26 18:14:23 +01:00
commit 54f3b0d89e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Handler/Buy.hs
View file

@ -51,8 +51,9 @@ postBuyR uId bId = do
else do else do
let price = quant * (beveragePrice bev) let price = quant * (beveragePrice bev)
let sw = price > (userBalance user) let sw = price > (userBalance user)
runDB $ update uId [UserBalance -=. price] runDB $ do
runDB $ update bId [BeverageAmount -=. quant] update uId [UserBalance -=. price]
update bId [BeverageAmount -=. quant]
checkAlert bId checkAlert bId
master <- getYesod master <- getYesod
liftIO $ notifyUser user bev price master liftIO $ notifyUser user bev price master