nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

changed addendum condition

Browse source
This commit is contained in:
nek0 2016-03-30 21:53:33 +02:00
parent 3792bd0271
commit 3b79c6bcd8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Buy.hs
View file

@ -81,7 +81,7 @@ notifyUser :: User -> Beverage -> Int -> Int -> App -> IO ()
notifyUser user bev quant price master = do notifyUser user bev quant price master = do
case userEmail user of case userEmail user of
Just email -> do Just email -> do
addendum <- if userBalance user < 0 addendum <- if (userBalance user - price) < 0
then then
return $ return $
"\n\nDein Guthaben Beträgt im Moment " ++ "\n\nDein Guthaben Beträgt im Moment " ++