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" ++