diff options
author | Joris | 2015-09-06 15:54:38 +0200 |
---|---|---|
committer | Joris | 2015-09-06 15:54:38 +0200 |
commit | 0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 (patch) | |
tree | c07d2a2fe22ac7b8a45e71d9bbcb5826922cbae8 /src/client/View/Payments/Add.elm | |
parent | e10531ba4e60c8709088798763ae3bae6608f9c9 (diff) | |
download | budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.tar.gz budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.tar.bz2 budget-0ae7d068263dffbc1cc2dc92c7829dd0037c97e7.zip |
The user can remove a monthly payment
Diffstat (limited to 'src/client/View/Payments/Add.elm')
-rw-r--r-- | src/client/View/Payments/Add.elm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm index 21406b2..deffb95 100644 --- a/src/client/View/Payments/Add.elm +++ b/src/client/View/Payments/Add.elm @@ -31,7 +31,11 @@ addPayment model loggedView = [ class "add" , case (validateName loggedView.add.name model.translations, validateCost loggedView.add.cost model.translations) of (Ok name, Ok cost) -> - onSubmitPrevDefault serverCommunications.address (SC.AddPayment loggedView.me name cost loggedView.add.frequency) + let action = + case loggedView.add.frequency of + Punctual -> SC.AddPayment loggedView.me name cost + Monthly -> SC.AddMonthlyPayment name cost + in onSubmitPrevDefault serverCommunications.address action (resName, resCost) -> onSubmitPrevDefault actions.address (UpdateLoggedView <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost)) ] |