From 18fa53c696028b05d15b5f250ffee54dd9a9ab3c Mon Sep 17 00:00:00 2001 From: Astro Date: Sun, 24 Jan 2016 00:42:58 +0100 Subject: [PATCH] Handler.Buy: transactionize postBuyR runDB --- Handler/Buy.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Handler/Buy.hs b/Handler/Buy.hs index 3527681..0012197 100755 --- a/Handler/Buy.hs +++ b/Handler/Buy.hs @@ -51,8 +51,9 @@ postBuyR uId bId = do else do let price = quant * (beveragePrice bev) let sw = price > (userBalance user) - runDB $ update uId [UserBalance -=. price] - runDB $ update bId [BeverageAmount -=. quant] + runDB $ do + update uId [UserBalance -=. price] + update bId [BeverageAmount -=. quant] checkAlert bId master <- getYesod liftIO $ notifyUser user bev price master