From 4995783b9d3ef3125258daa9c03ab8bed00ac129 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 18 Mar 2016 00:00:41 +0100 Subject: [PATCH] timestamp gets updated at buying --- Handler/Buy.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Handler/Buy.hs b/Handler/Buy.hs index 64631b2..97e7591 100644 --- a/Handler/Buy.hs +++ b/Handler/Buy.hs @@ -51,7 +51,9 @@ postBuyR uId bId = do else do let price = quant * (beveragePrice bev) let sw = price > (userBalance user) + today <- liftIO $ return utctDay =<< getCurrentTime runDB $ do + update uId [UserTimestamp =. today] update uId [UserBalance -=. price] update bId [BeverageAmount -=. quant] checkAlert bId