changed addendum condition

2016-03-30 21:53:33 +02:00 · 2016-03-30 21:53:33 +02:00 · 3b79c6bcd8
commit 3b79c6bcd8
parent 3792bd0271
1 changed files with 1 additions and 1 deletions
--- 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 " ++