changed addendum condition

This commit is contained in:
nek0 2016-03-30 21:53:33 +02:00
parent 3792bd0271
commit 3b79c6bcd8

View file

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