updated notify mail to contain quantity and te occasinal user balance rant.

This commit is contained in:
nek0 2016-03-18 00:53:18 +01:00
parent 01561b03b6
commit 800d8e6d24
1 changed files with 17 additions and 6 deletions

View File

@ -58,7 +58,7 @@ postBuyR uId bId = do
update bId [BeverageAmount -=. quant]
checkAlert bId
master <- getYesod
liftIO $ notifyUser user bev price master
liftIO $ notifyUser user bev quant price master
case sw of
False -> do
setMessageI MsgPurchaseSuccess
@ -73,15 +73,26 @@ postBuyR uId bId = do
setMessageI MsgUserUnknown
redirect HomeR
notifyUser :: User -> Beverage -> Int -> App -> IO ()
notifyUser user bev price master = do
notifyUser :: User -> Beverage -> Int -> Int -> App -> IO ()
notifyUser user bev quant price master = do
case userEmail user of
Just email ->
Just email -> do
addendum <- if userBalance user < 0
then
return $
"\n\nDein Guthaben Beträgt im Moment " ++
formatIntCurrency (userBalance user) ++
appCurrency (appSettings master) ++
".\n" ++
"LADE DEIN GUTHABEN AUF!\n" ++
"VERDAMMT NOCHMAL!!!"
else
return ""
liftIO $ sendMail email "Einkauf beim Matematen"
[stext|
[lt|
Hallo #{userIdent user},
Du hast gerade beim Matematen für #{formatIntCurrency price}#{appCurrency $ appSettings master} #{beverageIdent bev} eingekauft.
Du hast gerade beim Matematen für #{formatIntCurrency price}#{appCurrency $ appSettings master} #{quant} Stück #{beverageIdent bev} eingekauft.#{addendum}
Viele Grüsse,