show new balance, not old
This commit is contained in:
parent
bb6c298a09
commit
3792bd0271
1 changed files with 1 additions and 1 deletions
|
@ -85,7 +85,7 @@ notifyUser user bev quant price master = do
|
||||||
then
|
then
|
||||||
return $
|
return $
|
||||||
"\n\nDein Guthaben Beträgt im Moment " ++
|
"\n\nDein Guthaben Beträgt im Moment " ++
|
||||||
formatIntCurrency (userBalance user) ++
|
formatIntCurrency (userBalance user - price) ++
|
||||||
appCurrency (appSettings master) ++
|
appCurrency (appSettings master) ++
|
||||||
".\n" ++
|
".\n" ++
|
||||||
"LADE DEIN GUTHABEN AUF!\n" ++
|
"LADE DEIN GUTHABEN AUF!\n" ++
|
||||||
|
|
Loading…
Reference in a new issue