From 3b79c6bcd8f18f15272569f9dd507b45e65e9f48 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 30 Mar 2016 21:53:33 +0200
Subject: [PATCH] changed addendum condition

---
 Handler/Buy.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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