From 3792bd0271070c8a44eb35b466c2157f70b25a56 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 23 Mar 2016 06:31:44 +0100
Subject: [PATCH] show new balance, not old

---
 Handler/Buy.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Buy.hs b/Handler/Buy.hs
index 60eb5ac..9ab2b00 100644
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
@@ -85,7 +85,7 @@ notifyUser user bev quant price master = do
         then
           return $
             "\n\nDein Guthaben Beträgt im Moment " ++
-            formatIntCurrency (userBalance user) ++
+            formatIntCurrency (userBalance user - price) ++
             appCurrency (appSettings master) ++
             ".\n" ++
             "LADE DEIN GUTHABEN AUF!\n" ++