c3d2/yammat
c3d2
/
yammat
38
0
Fork 1
Code Issues Pull Requests Releases Activity

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