From 7a2720f57e29d7673e81af617ba98901609a7eb1 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 19 Oct 2017 17:11:33 +0200 Subject: [PATCH] restricting payout to available funds --- Handler/Payout.hs | 14 ++++++++++---- yammat.cabal | 2 +- 2 files changed, 11 insertions(+), 5 deletions(-) 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