diff --git a/Handler/Payout.hs b/Handler/Payout.hs index 0f1757d..de538d1 100644 --- a/Handler/Payout.hs +++ b/Handler/Payout.hs @@ -37,10 +37,16 @@ postPayoutR = do $ renderBootstrap3 BootstrapBasicForm payoutForm case res of FormSuccess payment -> do - msg <- renderMessage' $ MsgPayout $ paymentDesc payment - updateCashier (- (paymentAmount payment)) msg - setMessageI MsgPaidOut - redirect HomeR + balance <- getCashierBalance + if balance >= payment + then + msg <- renderMessage' $ MsgPayout $ paymentDesc payment + updateCashier (- (paymentAmount payment)) msg + setMessageI MsgPaidOut + redirect HomeR + else + setMessageI MsgNotEnoughFunds + redirect HomeR _ -> do setMessageI MsgNotPaidOut redirect JournalR diff --git a/yammat.cabal b/yammat.cabal index ca2a713..c59c28b 100644 --- a/yammat.cabal +++ b/yammat.cabal @@ -1,5 +1,5 @@ name: yammat -version: 0.0.7 +version: 0.0.8 cabal-version: >= 1.8 build-type: Simple license: AGPL-3