From 2cb4a1b1c50faa9817686d5f8dfd5be5d466fd88 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 19 Oct 2017 22:47:37 +0200
Subject: [PATCH] =?UTF-8?q?w=C3=BCrks?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Handler/Payout.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Handler/Payout.hs b/Handler/Payout.hs
index a7edfcb..5f3be2e 100644
--- a/Handler/Payout.hs
+++ b/Handler/Payout.hs
@@ -38,15 +38,15 @@ postPayoutR = do
   case res of
     FormSuccess payment -> do
       balance <- getCashierBalance
-      if balance >= payment
-      then do
-        msg <- renderMessage' $ MsgPayout $ paymentDesc payment
-        updateCashier (- (paymentAmount payment)) msg
-        setMessageI MsgPaidOut
-        redirect HomeR
-      else do
-        setMessageI MsgNotEnoughFunds
-        redirect HomeR
+      if balance >= paymentAmount payment
+        then do
+          msg <- renderMessage' $ MsgPayout $ paymentDesc payment
+          updateCashier (- (paymentAmount payment)) msg
+          setMessageI MsgPaidOut
+          redirect HomeR
+        else do
+          setMessageI MsgNotEnoughFunds
+          redirect HomeR
     _ -> do
       setMessageI MsgNotPaidOut
       redirect JournalR