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

würks

Browse source
This commit is contained in:
nek0 2017-10-19 22:47:37 +02:00
parent eedc5f7023
commit 2cb4a1b1c5
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Handler/Payout.hs
View file

@ -38,15 +38,15 @@ postPayoutR = do
case res of case res of
FormSuccess payment -> do FormSuccess payment -> do
balance <- getCashierBalance balance <- getCashierBalance
if balance >= payment if balance >= paymentAmount payment
then do 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 do else do
setMessageI MsgNotEnoughFunds setMessageI MsgNotEnoughFunds
redirect HomeR redirect HomeR
_ -> do _ -> do
setMessageI MsgNotPaidOut setMessageI MsgNotPaidOut
redirect JournalR redirect JournalR