From 800d8e6d2413a857c2faf857f168b3c9044cb118 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 18 Mar 2016 00:53:18 +0100
Subject: [PATCH] updated notify mail to contain quantity and te occasinal user
 balance rant.

---
 Handler/Buy.hs | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/Handler/Buy.hs b/Handler/Buy.hs
index 96802b0..abb1ecc 100644
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
@@ -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,