From eedc5f7023f5d59801a17f92b2f6c26d9b7d73f9 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 19 Oct 2017 21:34:42 +0200
Subject: [PATCH] do or do not, there is no try

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

diff --git a/Handler/Payout.hs b/Handler/Payout.hs
index de538d1..a7edfcb 100644
--- a/Handler/Payout.hs
+++ b/Handler/Payout.hs
@@ -39,12 +39,12 @@ postPayoutR = do
     FormSuccess payment -> do
       balance <- getCashierBalance
       if balance >= payment
-      then
+      then do
         msg <- renderMessage' $ MsgPayout $ paymentDesc payment
         updateCashier (- (paymentAmount payment)) msg
         setMessageI MsgPaidOut
         redirect HomeR
-      else
+      else do
         setMessageI MsgNotEnoughFunds
         redirect HomeR
     _ -> do