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

2
Handler/Payout.hs
View file

@ -38,7 +38,7 @@ postPayoutR = do
case res of
FormSuccess payment -> do
balance <- getCashierBalance
if balance >= payment
if balance >= paymentAmount payment
then do
msg <- renderMessage' $ MsgPayout $ paymentDesc payment
updateCashier (- (paymentAmount payment)) msg