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

typo

Browse source
This commit is contained in:
nek0 2016-03-18 00:04:13 +01:00
parent fa65cee762
commit 01561b03b6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Buy.hs
View file

@ -51,7 +51,7 @@ 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)
today <- liftIO $ return utctDay =<< getCurrentTime today <- liftIO $ return . utctDay =<< getCurrentTime
runDB $ do runDB $ do
update uId [UserTimestamp =. today] update uId [UserTimestamp =. today]
update uId [UserBalance -=. price] update uId [UserBalance -=. price]