würks

2017-10-19 22:47:37 +02:00 · 2017-10-19 22:47:37 +02:00 · 2cb4a1b1c5
parent eedc5f7023
commit 2cb4a1b1c5
1 changed files with 9 additions and 9 deletions
--- a/Handler/Payout.hs
+++ b/Handler/Payout.hs
@ -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