diff --git a/Handler/Buy.hs b/Handler/Buy.hs index 9ab2b00..590f4c1 100644 --- a/Handler/Buy.hs +++ b/Handler/Buy.hs @@ -81,7 +81,7 @@ notifyUser :: User -> Beverage -> Int -> Int -> App -> IO () notifyUser user bev quant price master = do case userEmail user of Just email -> do - addendum <- if userBalance user < 0 + addendum <- if (userBalance user - price) < 0 then return $ "\n\nDein Guthaben BetrÃĪgt im Moment " ++