show new balance, not old

2016-03-23 06:31:44 +01:00 · 2016-03-23 06:31:44 +01:00 · 3792bd0271
parent bb6c298a09
commit 3792bd0271
1 changed files with 1 additions and 1 deletions
--- 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" ++