Merge AddPayment and AddMonthlyPayment

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"