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
+      balance <- getCashierBalance
-      updateCashier (- (paymentAmount payment)) msg
+      if balance >= payment
-      setMessageI MsgPaidOut
+      then
-      redirect HomeR
+        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