diff options
Diffstat (limited to 'src/client/elm/View/LoggedIn/AddPayment.elm')
| -rw-r--r-- | src/client/elm/View/LoggedIn/AddPayment.elm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/client/elm/View/LoggedIn/AddPayment.elm b/src/client/elm/View/LoggedIn/AddPayment.elm index 0fbe28e..cbc93a1 100644 --- a/src/client/elm/View/LoggedIn/AddPayment.elm +++ b/src/client/elm/View/LoggedIn/AddPayment.elm @@ -31,11 +31,7 @@ addPayment address model loggedInView = H.form [ case (validateName loggedInView.add.name model.translations, validateCost loggedInView.add.cost model.translations) of (Ok name, Ok cost) -> - let action = - case loggedInView.add.frequency of - Punctual -> Communication.AddPayment name cost - Monthly -> Communication.AddMonthlyPayment name cost - in onSubmitPrevDefault address (ServerCommunication action) + onSubmitPrevDefault address (ServerCommunication (Communication.AddPayment name cost loggedInView.add.frequency)) (resName, resCost) -> onSubmitPrevDefault address (UpdateLoggedIn <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost)) , class "addPayment" |