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

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

23
Handler/Buy.hs
View file

@ -58,7 +58,7 @@ postBuyR uId bId = do
update bId [BeverageAmount -=. quant] update bId [BeverageAmount -=. quant]
checkAlert bId checkAlert bId
master <- getYesod master <- getYesod
liftIO $ notifyUser user bev price master liftIO $ notifyUser user bev quant price master
case sw of case sw of
False -> do False -> do
setMessageI MsgPurchaseSuccess setMessageI MsgPurchaseSuccess
@ -73,15 +73,26 @@ postBuyR uId bId = do
setMessageI MsgUserUnknown setMessageI MsgUserUnknown
redirect HomeR redirect HomeR
notifyUser :: User -> Beverage -> Int -> App -> IO () notifyUser :: User -> Beverage -> Int -> Int -> App -> IO ()
notifyUser user bev price master = do notifyUser user bev quant price master = do
case userEmail user of 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" liftIO $ sendMail email "Einkauf beim Matematen"
[stext| [lt|
Hallo #{userIdent user}, 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, Viele Grüsse,