do or do not, there is no try

This commit is contained in:
nek0 2017-10-19 21:34:42 +02:00
parent 7a2720f57e
commit eedc5f7023

View file

@ -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