nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

do or do not, there is no try

Browse source
This commit is contained in:
nek0 2017-10-19 21:34:42 +02:00
parent 7a2720f57e
commit eedc5f7023
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Payout.hs
View file

@ -39,12 +39,12 @@ postPayoutR = do
FormSuccess payment -> do FormSuccess payment -> do
balance <- getCashierBalance balance <- getCashierBalance
if balance >= payment if balance >= payment
then then do
msg <- renderMessage' $ MsgPayout $ paymentDesc payment msg <- renderMessage' $ MsgPayout $ paymentDesc payment
updateCashier (- (paymentAmount payment)) msg updateCashier (- (paymentAmount payment)) msg
setMessageI MsgPaidOut setMessageI MsgPaidOut
redirect HomeR redirect HomeR
else else do
setMessageI MsgNotEnoughFunds setMessageI MsgNotEnoughFunds
redirect HomeR redirect HomeR
_ -> do _ -> do