restricting payout to available funds

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

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