diff options
| author | Joris | 2015-09-06 00:05:50 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 00:05:50 +0200 |
| commit | 24633871359ec9fbd63fdfebf79a6351b2792f77 (patch) | |
| tree | a87c8a964a3c5114da13e622c604cf99ab905a06 /src/client/View/Payments/Add.elm | |
| parent | 8c328987901973cd0ffd2e03cae547717ebbbc67 (diff) | |
Can add monthly payments, not visible at the moment though, just the count is printed
Diffstat (limited to 'src/client/View/Payments/Add.elm')
| -rw-r--r-- | src/client/View/Payments/Add.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm index 085b16d..a22c1f1 100644 --- a/src/client/View/Payments/Add.elm +++ b/src/client/View/Payments/Add.elm @@ -31,7 +31,7 @@ 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) + onSubmitPrevDefault serverCommunications.address (SC.AddPayment loggedView.me name cost loggedView.add.frequency) (resName, resCost) -> onSubmitPrevDefault actions.address (UpdatePayment <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost)) ] |